Changeset 1483 for trunk/gsdl/perllib/classify/List.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/List.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -42 +42 @@
 use sorttools;
 
+sub BEGIN {
+    @ISA = ('BasClas');
+}
+
 sub new {
     my ($class, @options) = @_;
+    my $self = new BasClas ($class, @_);
 
     my $list = [];
@@ -73 +78 @@
     }
 
-    return bless {
-    'list'=>$list,
-    'metaname' => $metaname,
-    'title' => $title,
-    'sortname' => $sortname
-    }, $class;
+    $self->{'list'} = $list;
+    $self->{'metaname'} = $metaname;
+    $self->{'title'} = $title;
+    $self->{'sortname'} = $sortname;
+
+    return bless $self, $class;
 }
 
@@ -119 +124 @@
         if (defined $metavalue) {
         if (defined $self->{'list'}->{$doc_OID}) {
-            print STDERR "WARNING: List::classify called multiple times for $doc_OID\n";
+            my $outhandle = $self->{'outhandle'};
+            print $outhandle "WARNING: List::classify called multiple times for $doc_OID\n";
         } 
         $self->{'list'}->{$doc_OID} = $sortmeta;
@@ -125 +131 @@
     } else {
         if (defined $self->{'list'}->{$doc_OID}) {
-        print STDERR "WARNING: List::classify called multiple times for $doc_OID\n";
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "WARNING: List::classify called multiple times for $doc_OID\n";
         } 
         $self->{'list'}->{$doc_OID} = $sortmeta;