diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-05-17 11:28:07 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-05-18 09:53:42 +0100 |
| commit | fbae634bbb5e8caeeeb02fa296f3c68f955fe3d5 (patch) | |
| tree | 996b1cc558b66ced35631bd84667212e72f92f1f /perllib/FixMyStreet/App/Model/PhotoSet.pm | |
| parent | 8eaf26c962c4941a302975630035c24f1e5f55ef (diff) | |
Fix removal of cached update photos.
It was possible that rotating an update photo did not remove its cached
copy.
Diffstat (limited to 'perllib/FixMyStreet/App/Model/PhotoSet.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Model/PhotoSet.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/App/Model/PhotoSet.pm b/perllib/FixMyStreet/App/Model/PhotoSet.pm index b44bf4b38..030dbd5be 100644 --- a/perllib/FixMyStreet/App/Model/PhotoSet.pm +++ b/perllib/FixMyStreet/App/Model/PhotoSet.pm @@ -255,9 +255,11 @@ sub delete_cached { my ($self) = @_; my $object = $self->object or return; + my @dirs = ('web', 'photo'); + push @dirs, 'c' if ref $object eq 'FixMyStreet::DB::Result::Comment'; + unlink glob FixMyStreet->path_to( - 'web', - 'photo', + @dirs, $object->id . '.*' ); } |