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

perlDreamer · perlDreamer · commit 79c843434c07 · 2012-07-26T15:11:40.000-07:00
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});
