From d13b9e355462559bc7a1ffe70ae353a1dafd0c8e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Wed, 20 Apr 2016 17:16:11 +0100
Subject: If admin removes all images, set db field to null.

---
 perllib/FixMyStreet/App/Model/PhotoSet.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perllib/FixMyStreet/App/Model/PhotoSet.pm b/perllib/FixMyStreet/App/Model/PhotoSet.pm
index 41d02d2a7..b783a20e6 100644
--- a/perllib/FixMyStreet/App/Model/PhotoSet.pm
+++ b/perllib/FixMyStreet/App/Model/PhotoSet.pm
@@ -265,13 +265,15 @@ sub remove_images {
         --$dec;
     }
 
+    $self->delete_cached();
+
+    return undef if !@images;
+
     my $new_set = (ref $self)->new({
         data_items => \@images,
         object => $self->object,
     });
 
-    $self->delete_cached();
-
     return $new_set->data; # e.g. new comma-separated fileid
 }
 
-- 
cgit v1.2.3