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

gsdl/trunk/perllib/classify/GenericList.pm

@@ -194 +194 @@
 {
     my $self = shift(@_);
-    my $doc_obj = shift(@_);
+    my ($doc_obj,$edit_mode) = @_;
 
     # If "-classify_sections" is set, classify every section of the document
@@ -200 +200 @@
     my $section = $doc_obj->get_next_section($doc_obj->get_top_section());
     while (defined $section) {
-        $self->classify_section($doc_obj, $doc_obj->get_OID() . ".$section", $section);
+        $self->classify_section($doc_obj, $doc_obj->get_OID() . ".$section", $section, $edit_mode);
         $section = $doc_obj->get_next_section($section);
     }
@@ -206 +206 @@
     # Otherwise just classify the top document section
     else {
-    $self->classify_section($doc_obj, $doc_obj->get_OID(), $doc_obj->get_top_section());
+    $self->classify_section($doc_obj, $doc_obj->get_OID(), $doc_obj->get_top_section(), $edit_mode);
     }
 }
@@ -214 +214 @@
 {
     my $self = shift(@_);
-    my $doc_obj = shift(@_);
-    my $section_OID = shift(@_);
-    my $section = shift(@_);
+    my ($doc_obj,$section_OID,$section,$edit_mode) = @_;
 
     my @metadata_groups = @{$self->{'metadata_groups'}};
@@ -235 +233 @@
     return if (!$classify_section);
 
+    if ($edit_mode eq "delete") {
+    $self->oid_array_delete($section_OID,'OIDs');
+    return;
+    }
+   
     # Otherwise, include this section in the classifier
     push(@{$self->{'OIDs'}}, $section_OID);