aboutsummaryrefslogtreecommitdiffstats
path: root/perllib
diff options
context:
space:
mode:
authorDave Arter <davea@mysociety.org>2017-07-18 16:01:05 +0100
committerDave Arter <davea@mysociety.org>2017-08-31 13:39:10 +0100
commit455ce61c10fa885c04148b4d095acefbf07a4b33 (patch)
treecdf5dd9cbf45945eb90558c7da924635543e7ff4 /perllib
parente62439494abf74bd1518bd499986aebd5bfafc68 (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.pm16
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;