Changeset 1839 for trunk/gsdl/perllib/classify/DateList.pm

Timestamp:

2001-01-16T11:50:05+13:00 (23 years ago)

Author:

paynter

Message:

Updated classifiers to use the parsearg library instead of ad-hoc
"x=y" style parsing. (Backwards compatability maintained through
a quick hack to the load_classifier function in classfy.pm.)

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -41 +41 @@
 }
 
+sub print_usage {
+    print STDERR "
+  usage: classify DateList
+
+Classifier plugin for sorting by date.
+No options - always sorts by 'Date' metadata
+Date is assumed to be in the form yyyymmdd
+At present dates are split by year - this should change
+
+Any errors are Dana's problem.
+";
+}
+
 sub new {
-    my ($class, @options) = @_;
-    my $self = new BasClas ($class, @_);
+    my $class = shift (@_);
+    my $self = new BasClas($class, @_);
 
     $self->{'list'} = {};