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

trunk/gsdl/perllib/classify/AZList.pm

@@ -34 +34 @@
 package AZList;
 
+use BasClas;
 use sorttools;
+
+sub BEGIN {
+    @ISA = ('BasClas');
+}
 
 sub new {
     my ($class, @options) = @_;
+    my $self = new BasClas ($class, @_);
 
     my ($metaname, $title);
@@ -49 +55 @@
     }
 
-    die "AZList used with no metadata name to classify by\n"
-    unless defined $metaname;
+    if (!defined $metaname) {
+    my $outhandle = $self->{'outhandle'};
+    print $outhandle "AZList used with no metadata name to classify by\n";
+    die "\n";
+    }
+
     $title = $metaname unless defined $title;
 
-    return bless {
-    'list'=>{},
-    'metaname' => $metaname,
-    'title' => $title
-    }, $class;
+    $self->{'list'} = {};
+    $self->{'metaname'} = $metaname;
+    $self->{'title'} = $title;
+
+    return bless $self, $class;
 }
 
@@ -83 +93 @@
     }
     if (defined $self->{'list'}->{$doc_OID}) {
-        print STDERR "WARNING: AZList::classify called multiple times for $doc_OID\n";
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "WARNING: AZList::classify called multiple times for $doc_OID\n";
     } 
     $self->{'list'}->{$doc_OID} = $metavalue;
@@ -164 +175 @@
     if ($title =~ /^[0-9]$/) {$title = '0-9';}
     elsif ($title !~ /^[A-Z]$/) {
-        print STDERR "AZList: WARNING $classification has badly formatted title ($title)\n";
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "AZList: WARNING $classification has badly formatted title ($title)\n";
     }
     $classhash->{$title} = [] unless defined $classhash->{$title};