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

Timestamp:

2004-03-08T15:39:43+13:00 (20 years ago)

Author:

kjdon

Message:

all classifiers now use BasClas.buttonname for their buttonname option description.
removed the old print_usage methods and old usage notes.
added in a test for $self->{'info_only'} in new(): if this is set, don't try and parse the arguments cos we are only running classinfo.pl.

File:

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

trunk/gsdl/perllib/classify/DateList.pm

@@ -86 +86 @@
     my $option_list = $self->{'option_list'};
     push( @{$option_list}, $options );
+
+    if ($self->{'info_only'}) {
+    # created from classinfo.pl - don't need to parse the arguments
+    return bless $self, $class;
+    }
 
     $self->{'list'} = {};