Merge branch 'migrate_to_catalyst' of ssh://git.mysociety.org/data/git/public/fixmystreet into migrate_to_catalyst

1 files changed, 25 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm
index ca13f7130..57bbf5fb8 100644
--- a/perllib/FixMyStreet/DB/Result/Problem.pm
+++ b/perllib/FixMyStreet/DB/Result/Problem.pm
@@ -200,4 +200,29 @@ sub confirm {
     return 1;
 }
 
+=head2 councils
+
+Returns an array of councils to which a report was sent.
+
+=cut
+
+sub councils {
+    my $self = shift;
+    return () unless $self->council;
+    (my $council = $self->council) =~ s/\|.*$//;
+    my @council = split /,/, $council;
+    return @council;
+}
+
+=head2 url
+
+Returns a URL for this problem report.
+
+=cut
+
+sub url {
+    my $self = shift;
+    return "/report/" . $self->id;
+}
+
 1;