Changeset 2956

Timestamp:

2002-02-07T16:44:47+13:00 (22 years ago)

Author:

jrm21

Message:

Added Don Gourley's changes for getting Sections to work properly.

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -399 +399 @@
         ## date appears to not be used in classifier call ####
 
-        if ($doc_OID =~ m/^.*\.(\d+)$/)
-        {
-            $self->{'classifiers'}->{$node_name}->{'classifyobj'}
-            ->classify($doc_obj, "Section=$1"); 
+        if ($doc_OID =~ m/^[^\.]*\.([\d\.]+)$/)
+        {
+            my $section=$1;
+            if ($self->{'doclevel'} =~ m/^top/i) { # toplevel
+            $self->{'classifiers'}->{$node_name}->{'classifyobj'}
+            ->classify($doc_obj, "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, $date);
+            }
         }
         else