Spot moderation conflicts.

If someone tries to moderate after someone else has, re-show the
form and an error.

1 files changed, 8 insertions, 2 deletions

diff --git a/perllib/FixMyStreet/Roles/Moderation.pm b/perllib/FixMyStreet/Roles/Moderation.pm
index f43b65208..fb9ea3a70 100644
--- a/perllib/FixMyStreet/Roles/Moderation.pm
+++ b/perllib/FixMyStreet/Roles/Moderation.pm
@@ -7,12 +7,18 @@ Return most recent AdminLog object concerning moderation
 
 =cut
 
-sub latest_moderation_log_entry {
+sub latest_moderation {
     my $self = shift;
 
-    my $latest = $self->moderation_original_datas->search(
+    return $self->moderation_original_datas->search(
         $self->moderation_filter,
         { order_by => { -desc => 'id' } })->first;
+}
+
+sub latest_moderation_log_entry {
+    my $self = shift;
+
+    my $latest = $self->latest_moderation;
     return unless $latest;
 
     my $rs = $self->result_source->schema->resultset("AdminLog");