diff options
author | Struan Donald <struan@exo.org.uk> | 2012-04-02 12:59:34 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2012-04-02 12:59:34 +0100 |
commit | cd7ed40322ac11fa57adf39d39d10a5d7b4a142e (patch) | |
tree | 4bec3e2b9cad68db1cae2bb36d776fc4cc905285 /perllib/Open311.pm | |
parent | 8f6fa27e6ede705c52bebbfba5e3495661fa12d3 (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.pm | 4 |
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}; |