Changeset 424 for trunk

Timestamp:

1999-08-02T17:16:10+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed some bugs - made it easier to use as sub-classification of
another classifier

File:

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

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -40 +40 @@
 
     while (defined $thissection) {
-
-    my $metavalue = $doc_obj->get_metadata_element ($thissection, $self->{'metaname'});
-
-    # if this document doesn't contain the metadata element we're
-    # sorting by we won't include it in this classification
-    if (defined $metavalue && $metavalue =~ /\w/) {
-        if ($self->{'metaname'} eq 'Creator') {
-        &sorttools::format_string_name_english (\$metavalue);
-        } else {
-        &sorttools::format_string_english (\$metavalue);
-        }
-        if (defined $self->{'list'}->{"$doc_OID.$thissection"}) {
-        print STDERR "WARNING: AZSectionList::classify called multiple times for $doc_OID\n";
-        } 
-        $self->{'list'}->{"$doc_OID.$thissection"} = $metavalue;
-    }
+    $self->classify_section ($thissection, $doc_obj);
     $thissection = $doc_obj->get_next_section ($thissection);
     }
 }
 
+sub classify_section {
+    my $self = shift (@_);
+    my ($section, $doc_obj) = @_;
+
+    my $doc_OID = $doc_obj->get_OID();
+    my $metavalue = $doc_obj->get_metadata_element ($section, $self->{'metaname'});
+
+    # if this section doesn't contain the metadata element we're
+    # sorting by we won't include it in this classification
+    if (defined $metavalue && $metavalue =~ /\w/) {
+    if ($self->{'metaname'} eq 'Creator') {
+        &sorttools::format_string_name_english (\$metavalue);
+    } else {
+        &sorttools::format_string_english (\$metavalue);
+    }
+    if (defined $self->{'list'}->{"$doc_OID.$section"}) {
+        print STDERR "WARNING: AZSectionList::classify called multiple times for $doc_OID.$section\n";
+    } 
+    $self->{'list'}->{"$doc_OID.$section"} = $metavalue;
+    }
+}
 
 sub get_classify_info {