diff options
| author | Dave Arter <davea@mysociety.org> | 2016-11-16 11:36:48 +0000 |
|---|---|---|
| committer | Dave Arter <davea@mysociety.org> | 2016-12-13 16:14:56 +0000 |
| commit | e6a01721c87b7e3463093e64e97e08ed96f54bce (patch) | |
| tree | 0f088aa26f2fe406699d075f90bb91b8b2ae2abb /perllib/FixMyStreet/DB/Result/Problem.pm | |
| parent | ca578e7c4150fab167f1a4ab422e23d0b1f09789 (diff) | |
If a problem has duplicates, display them on its detail page
Diffstat (limited to 'perllib/FixMyStreet/DB/Result/Problem.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/Result/Problem.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm index bb21fcc11..b7573d994 100644 --- a/perllib/FixMyStreet/DB/Result/Problem.pm +++ b/perllib/FixMyStreet/DB/Result/Problem.pm @@ -181,6 +181,7 @@ use namespace::clean -except => [ 'meta' ]; use Utils; use FixMyStreet::Map::FMS; use LWP::Simple qw($ua); +use RABX; my $IM = eval { require Image::Magick; @@ -1044,4 +1045,15 @@ has duplicate_of => ( }, ); +has duplicates => ( + is => 'ro', + lazy => 1, + default => sub { + my $self = shift; + my $rabx_id = RABX::serialise( $self->id ); + my @duplicates = $self->result_source->schema->resultset('Problem')->search({ extra => { like => "\%duplicate_of,$rabx_id%" } })->all; + return \@duplicates; + }, +); + 1; |