Fix another DataForm deletion bug, deleting when there's no storage object.

docs/changelog/7.x.x.txt

@@ -1,6 +1,7 @@
 7.6.14
  - fixed: IE6 shows Admin Bar over Asset Manager
- - fixed: #9808: Search i18n 
+ - fixed #9808: Search i18n 
+ - fixed #9818: deleteAttachedFiles bug (THE REVENGE)
 
 7.6.13
  - fixed AdSpace bug: impressions and clicks for most non-human web clients will not be counted.

lib/WebGUI/Asset/Wobject/DataForm.pm

@@ -484,9 +484,7 @@ sub deleteAttachedFiles {
             my $form = $self->_createForm($fieldConfig->{$field}, $entryData->{$field});
             if ($form->can('getStorageLocation')) {
                 my $storage = $form->getStorageLocation;
-                if ($storage) {
-                    $storage->delete;
-                }
+                $storage->delete if $storage;
             }
         }
     }
@@ -498,7 +496,7 @@ sub deleteAttachedFiles {
                 my $form = $self->_createForm($fieldConfig->{$field}, $entryData->{$field});
                 if ($form->can('getStorageLocation')) {
                     my $storage = $form->getStorageLocation;
-                    $storage->delete;
+                    $storage->delete if $storage;
                 }
             }
         }