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

trunk/gsdl/perllib/classify/DateList.pm

@@ -34 +34 @@
 package DateList;
 
+use BasClas;
 use sorttools;
+
+sub BEGIN {
+    @ISA = ('BasClas');
+}
 
 sub new {
     my ($class, @options) = @_;
-
-    return bless {
-    'list'=>{},
-    }, $class;
+    my $self = new BasClas ($class, @_);
+
+    $self->{'list'} = {};
+
+    return bless $self, $class;
 }
 
@@ -61 +67 @@
     if (defined $date && $date =~ /\d/) {
     if (defined $self->{'list'}->{$doc_OID}) {
-        print STDERR "WARNING: DateList::classify called multiple times for $doc_OID\n";
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "WARNING: DateList::classify called multiple times for $doc_OID\n";
     } 
     $self->{'list'}->{$doc_OID} = $date;