diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-01-16 11:09:35 +0000 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-01-16 11:09:35 +0000 |
commit | 7ee6a869233e90c54ecce1863389bb5e5cb65b36 (patch) | |
tree | e06dd297f23d91d5ef3bb5a8f127e7ce8b1faeb0 /perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm | |
parent | 53624a3800db9500ad35900466aa44ad55e57c23 (diff) | |
parent | 922976648c7acf072f85716f5257a4bfcda35599 (diff) |
Merge branch 'moderation-in-front-end-updates'
Diffstat (limited to 'perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm')
-rw-r--r-- | perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm b/perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm index 01ae1d6e1..1e61b946a 100644 --- a/perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm +++ b/perllib/FixMyStreet/DB/Result/ModerationOriginalData.pm @@ -167,7 +167,14 @@ sub compare_extra { push @s, string_diff("$_ = $old->{$_}", ""); } } - return join ', ', @s; + return join ', ', grep { $_ } @s; +} + +sub extra_diff { + my ($self, $other, $key) = @_; + my $o = $self->get_extra_metadata($key); + my $n = $other->get_extra_metadata($key); + return string_diff($o, $n); } sub string_diff { |