Changeset 838 for trunk

Timestamp:

1999-12-13T16:56:11+13:00 (24 years ago)

Author:

davidb

Message:

added options passed into 'new' subroutine

File:

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

trunk/gsdl/perllib/classify/SectionList.pm

@@ -95 +95 @@
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
-
-    my $thissection = $doc_obj->get_next_section ($doc_obj->get_top_section());
+    my ($doc_obj,@options) = @_;
+    
+    my $thissection = undef;
+
+    my $option;
+    foreach $option (@options)
+    {
+    if ($option =~ m/^section=(\d+)$/i) 
+    {
+        $thissection = $1;
+    }
+    }
 
     my $sortmeta = "";
@@ -115 +124 @@
     }
 
-    while (defined $thissection) {
+    if (!defined $thissection)
+    {
+    $thissection = $doc_obj->get_next_section ($doc_obj->get_top_section());
+    while (defined $thissection) {
+        $self->classify_section($thissection, $doc_obj, $sortmeta);
+        $thissection = $doc_obj->get_next_section ($thissection);
+    }
+    }
+    else
+    {
     $self->classify_section($thissection, $doc_obj, $sortmeta);
-    $thissection = $doc_obj->get_next_section ($thissection);
     }
 }