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

Timestamp:

2002-11-18T17:43:56+13:00 (21 years ago)

Author:

kjdon

Message:

added John T's changes into CVS - added info to enable retrieval of usage info in xml

File:

• trunk/gsdl/perllib/classify/DateList.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/DateList.pm

@@ -33 +33 @@
 # jrm21 - added option "bymonth", which splits by year and month.
 
+# 12/05/02 Added usage datastructure - John Thompson
+
 package DateList;
 
@@ -41 +43 @@
     @ISA = ('BasClas');
 }
+
+my $arguments = 
+[ {     'name' => "bymonth",
+    'desc' => "Classify by year and month.",
+    'type' => "flag",
+    'reqd' => "no" }
+];
+
+my $options = 
+{   'name'     => "DateList",
+    'desc'     => "Classifier plugin for sorting by date. Always sorts by 'Date' metadata. Date is assumed to be in the form yyyymmdd.",
+    'inherits' => "Yes",
+    'args'     => $arguments };
 
 sub print_usage {
@@ -48 +63 @@
     -bymonth  [or bymonth=1]    Classify by year and month
 
-  Classifier plugin for sorting by date, and assumes that 'Date' metadata
-  exists. Date is assumed to be in the form yyyymmdd (all digits).
-  By default dates are classified by year.
-
+    Classifier plugin for sorting by date.
+    Always sorts by 'Date' metadata.
+    Date is assumed to be in the form yyyymmdd (all digits).
+    By default dates are split by year - this should change.
+
+    Any errors are Dana's problem.
 ";
 }
@@ -58 +75 @@
     my $class = shift (@_);
     my $self = new BasClas($class, @_);
+
+     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+     my $option_list = $self->{'option_list'};
+     push( @{$option_list}, $options );
 
     $self->{'list'} = {};