Changeset 18455 for gsdl/trunk/perllib/classify/AZCompactList.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/AZCompactList.pm (modified) (4 diffs)

gsdl/trunk/perllib/classify/AZCompactList.pm

@@ -180 +180 @@
 {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
+    my ($doc_obj,$edit_mode) = @_;
 
     my $doc_OID = $doc_obj->get_OID();
@@ -211 +211 @@
     my $full_doc_OID 
         = ($thissection ne "") ? "$doc_OID.$thissection" : $doc_OID;
+
+    if ($edit_mode eq "delete") {
+        print $outhandle "  Deleting $full_doc_OID\n";
+        delete $self->{'list'}->{$full_doc_OID};
+        delete $self->{'listmetavalue'}->{$full_doc_OID};
+        delete $self->{'list_mvpair'}->{$full_doc_OID};
+        delete $self->{'reclassify'}->{$full_doc_OID};
+
+        next;
+    }
+
+
     if (defined $self->{'list_mvpair'}->{$full_doc_OID}) 
     {
@@ -486 +498 @@
         if ($self->{'doclevel'} =~ m/^top/i) { # toplevel
             $self->{'classifiers'}->{$node_name}->{'classifyobj'}
-            ->classify($doc_obj, "Section=$section");
+            ->classify($doc_obj,"add", "Section=$section");
         } else { # section level
             # Thanks to Don Gourley for this...
             # classify can't handle multi-level section
             $self->{'classifiers'}->{$node_name}->{'classifyobj'}
-            ->classify_section($section, $doc_obj, $sortmeta);
+            ->classify_section($section, $doc_obj, "add", $sortmeta);
         }
         }
@@ -497 +509 @@
         {
         $self->{'classifiers'}->{$node_name}->{'classifyobj'}
-        ->classify($doc_obj); 
+        ->classify($doc_obj,"add"); 
         }
     } else { # this key is not in the hash