Changeset 1483 for trunk/gsdl/perllib/classify/SectionList.pm

Timestamp:

2000-08-31T20:05:25+12:00 (24 years ago)

Author:

sjboddie

Message:

added -out option to classifiers

File:

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

trunk/gsdl/perllib/classify/SectionList.pm

@@ -30 +30 @@
 package SectionList;
 
+use List;
 use sorttools;
 
 sub BEGIN {
     @ISA = ('List');
+}
+
+sub new {
+    my ($class, @options) = @_;
+    my $self = new List ($class, @_);
 }
 
@@ -94 +100 @@
         if (defined $metavalue) {
         if (defined $self->{'list'}->{"$doc_OID.$section"}) {
-            print STDERR "WARNING: SectionList::classify called multiple times for $doc_OID.$section\n";
+            my $outhandle = $self->{'outhandle'};
+            print $outhandle "WARNING: SectionList::classify called multiple times for $doc_OID.$section\n";
         } 
         $self->{'list'}->{"$doc_OID.$section"} = $sortmeta;
@@ -100 +107 @@
     } else {
         if (defined $self->{'list'}->{"$doc_OID.$section"}) {
-        print STDERR "WARNING: SectionList::classify called multiple times for $doc_OID.$section\n";
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "WARNING: SectionList::classify called multiple times for $doc_OID.$section\n";
         } 
         $self->{'list'}->{"$doc_OID.$section"} = $sortmeta;