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

trunk/gsdl/perllib/classify/List.pm

@@ -42 +42 @@
     'reqd' => "no" },
       { 'name' => "buttonname",
-    'desc' => "{List.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
     'deft' => "{BasClas.metadata.deft}",
@@ -66 +66 @@
     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;
+    }
 
     my ($metadata, $title, $sortname, $list);