aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Open311.pm
diff options
context:
space:
mode:
authorStruan Donald <struan@exo.org.uk>2012-04-02 12:59:34 +0100
committerStruan Donald <struan@exo.org.uk>2012-04-02 12:59:34 +0100
commitcd7ed40322ac11fa57adf39d39d10a5d7b4a142e (patch)
tree4bec3e2b9cad68db1cae2bb36d776fc4cc905285 /perllib/Open311.pm
parent8f6fa27e6ede705c52bebbfba5e3495661fa12d3 (diff)
add in tests for fms_extra, first and last name in extra
add code to handle first and last name in extra for request submission
Diffstat (limited to 'perllib/Open311.pm')
-rw-r--r--perllib/Open311.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index 2ed1fe9fe..97b5ca682 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -78,6 +78,10 @@ EOT
for my $attr ( @$extras ) {
my $attr_name = $attr->{name};
+ if ( $attr_name eq 'first_name' || $attr_name eq 'last_name' ) {
+ $params->{$attr_name} = $attr->{value} if $attr->{value};
+ next;
+ }
$attr_name =~ s/fms_extra_//;
my $name = sprintf( 'attribute[%s]', $attr_name );
$params->{ $name } = $attr->{value};