Changeset 18455 for gsdl/trunk/perllib/classify/Hierarchy.pm

Timestamp:

2009-02-03T09:46:33+13:00 (15 years ago)

Author:

davidb

Message:

Addition of 'edit_mode' parameter to classify(). This can be either 'add' 'delete' or 'reindex' (should think about renaming the last one to something more appropriate, e.g. update).

File:

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

gsdl/trunk/perllib/classify/Hierarchy.pm

@@ -86 +86 @@
 sub auto_classify {
     my $self = shift (@_);
-    my ($doc_obj,$nosort,$sortmeta,$metavalues) = @_;
+    my ($doc_obj,$edit_mode,$nosort,$sortmeta,$metavalues) = @_;
 
     my $doc_OID = $doc_obj->get_OID();
-    
+
+    if ($edit_mode eq "delete") {
+    if ($nosort) {
+        $self->oid_array_delete($doc_OID,'docs');
+    }
+    else {
+        $self->oid_hash_delete($doc_OID,'docs');
+    }
+    return;
+    }
+
     #Add all the metadata values to the hash
     my $path_hash;
@@ -133 +143 @@
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
+    my ($doc_obj,$edit_mode) = @_;
 
     my $doc_OID = $doc_obj->get_OID();
@@ -175 +185 @@
 
     if (defined $self->{'subjectfile'}) {
-    $self->hfile_classify($doc_obj,$sortmeta,$metavalues);
+    $self->hfile_classify($doc_obj,$edit_mode,$sortmeta,$metavalues);
     }
     else {
-    $self->auto_classify($doc_obj,$nosort,$sortmeta,$metavalues);
+    $self->auto_classify($doc_obj,$edit_mode,$nosort,$sortmeta,$metavalues);
     }
 }