diff options
Diffstat (limited to 'perllib/Open311.pm')
| -rw-r--r-- | perllib/Open311.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 16576726c..09ab8b326 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -75,7 +75,9 @@ EOT my $extras = $problem->extra; for my $attr ( @$extras ) { - my $name = sprintf( 'attribute[%s]', $attr->{name} ); + my $attr_name = $attr->{name}; + $attr_name =~ s/fms_extra_//; + my $name = sprintf( 'attribute[%s]', $attr_name ); $params->{ $name } = $attr->{value}; } } |