Fix the unlikely case of empty photo data in a Story asset when purging.

plainblack · Jul 26, 2012 · 79c8434 · 79c8434
1 parent c120a8b
commit 79c8434
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/WebGUI/Asset/Story.pm b/lib/WebGUI/Asset/Story.pm
@@ -709,7 +709,7 @@ sub purge {
     ##Delete all storage locations from all revisions of the Asset
     my $sth = $self->session->db->read("select photo from Story where assetId=?",[$self->getId]);
     STORAGE: while (my ($json) = $sth->array) {
-        my $photos = from_json($json);
+        my $photos = from_json($json || '[]');
         PHOTO: foreach my $photo (@{ $photos }) {
             next PHOTO unless $photo->{storageId};
             my $storage = WebGUI::Storage->get($self->session,$photo->{storageId});