Changeset 18522

Timestamp:

2009-02-16T11:53:21+13:00 (14 years ago)

Author:

davidb

Message:

Support for deleting and updating classifier information

File:

• gsdl/trunk/perllib/classify/Hierarchy.pm (modified) (2 diffs)

gsdl/trunk/perllib/classify/Hierarchy.pm

@@ -90 +90 @@
     my $doc_OID = $doc_obj->get_OID();
 
-    if ($edit_mode eq "delete") {
+    if (($edit_mode eq "delete") || ($edit_mode eq "update")) {
     if ($nosort) {
         $self->oid_array_delete($doc_OID,'docs');
@@ -97 +97 @@
         $self->oid_hash_delete($doc_OID,'docs');
     }
-    return;
+    return if ($edit_mode eq "delete");
     }