diff options
author | Dave Arter <davea@mysociety.org> | 2017-07-18 16:01:05 +0100 |
---|---|---|
committer | Dave Arter <davea@mysociety.org> | 2017-08-31 13:39:10 +0100 |
commit | 455ce61c10fa885c04148b4d095acefbf07a4b33 (patch) | |
tree | cdf5dd9cbf45945eb90558c7da924635543e7ff4 /perllib | |
parent | e62439494abf74bd1518bd499986aebd5bfafc68 (diff) |
Add Extra->get_extra_field_value
Allows easy display of Open311 field values for problems in templates
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Roles/Extra.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Roles/Extra.pm b/perllib/FixMyStreet/Roles/Extra.pm index dc2e5c241..445f6d91c 100644 --- a/perllib/FixMyStreet/Roles/Extra.pm +++ b/perllib/FixMyStreet/Roles/Extra.pm @@ -175,4 +175,20 @@ sub get_extra { return $extra; } +=head2 get_extra_field_value + +Return the value of a field stored in `_fields` in extra, or undefined if +it's not present. + +=cut + +sub get_extra_field_value { + my ($self, $name) = @_; + + my @fields = @{ $self->get_extra_fields() }; + + my ($field) = grep { $_->{name} eq $name } @fields; + return $field->{value}; +} + 1; |