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

gsdl/trunk/perllib/classify/SectionList.pm

@@ -63 +63 @@
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj, @options) = @_;
+    my ($doc_obj, $edit_mode, @options) = @_;
     
     # @options used by AZCompactList when is uses SectionList internally
@@ -97 +97 @@
     if (defined $thissection) {
     # just classify the one section
-    $self->classify_section($thissection, $doc_obj, $sortmeta, $nosort);
+    $self->classify_section($thissection, $doc_obj, $edit_mode, $sortmeta, $nosort);
     } else    
     {
     $thissection = $doc_obj->get_next_section ($doc_obj->get_top_section());
     while (defined $thissection) {
-        $self->classify_section($thissection, $doc_obj, $sortmeta, $nosort);
+        $self->classify_section($thissection, $doc_obj, $edit_mode, $sortmeta, $nosort);
         $thissection = $doc_obj->get_next_section ($thissection);
     }
@@ -110 +110 @@
 sub classify_section {
     my $self = shift (@_);
-    my ($section, $doc_obj, $sortmeta, $nosort) = @_;
+    my ($section, $doc_obj, $edit_mode, $sortmeta, $nosort) = @_;
 
     my $doc_OID = $doc_obj->get_OID();