Changeset 6974

Timestamp:

2004-03-09T12:15:17+13:00 (20 years ago)

Author:

kjdon

Message:

put back some stuff used by AZCompactlist when it uses SectionList to classify a single section

File:

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

trunk/gsdl/perllib/classify/SectionList.pm

@@ -62 +62 @@
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
+    my ($doc_obj, @options) = @_;
     
+    # @options used by AZCompactList when is uses SectionList internally
     # are we sorting the list??
     my $nosort = 0;
@@ -70 +71 @@
     }
 
-    # do we want to put -section as an option for the classifier???
-    #my $thissection = undef;
+    my $thissection = undef;
 
-    #my $option;
-    #foreach $option (@options)
-    #{
-#   if ($option =~ m/^section=(\d+)$/i) 
-#   {
-#       $thissection = $1;
-#   }
-#    }
+    my $option;
+    foreach $option (@options)
+    {
+    if ($option =~ m/^section=(\d+)$/i) 
+    {
+        $thissection = $1;
+    }
+    }
 
     my $sortmeta = "";
@@ -95 +95 @@
     }
 
- #   if (defined $thissection) {
-#   $self->classify_section($thissection, $doc_obj, $sortmeta);
-#    } else    
- #   {
-    $thissection = $doc_obj->get_next_section ($doc_obj->get_top_section());
-    while (defined $thissection) {
-    $self->classify_section($thissection, $doc_obj, $nosort, $sortmeta);
-    $thissection = $doc_obj->get_next_section ($thissection);
+    if (defined $thissection) {
+    # just classify the one section
+    $self->classify_section($thissection, $doc_obj, $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);
+        $thissection = $doc_obj->get_next_section ($thissection);
+    }
     }
-    #}
 }
 
 sub classify_section {
     my $self = shift (@_);
-    my ($section, $doc_obj, $nosort, $sortmeta) = @_;
+    my ($section, $doc_obj, $sortmeta, $nosort) = @_;
 
     my $doc_OID = $doc_obj->get_OID();