Changeset 18508 for gsdl/trunk/perllib/classify/GenericList.pm

Timestamp:

2009-02-11T17:42:17+13:00 (15 years ago)

Author:

davidb

Message:

Had to move location of where deletion of archive files was done

File:

• gsdl/trunk/perllib/classify/GenericList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/GenericList.pm

@@ -233 +233 @@
     return if (!$classify_section);
 
-    if ($edit_mode eq "delete") {
+
+    if (($edit_mode eq "delete") || ($edit_mode eq "update")) {
     $self->oid_array_delete($section_OID,'OIDs');
-    return;
+    if ($edit_mode eq "delete") {
+        return;
+    }
     }