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

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -51 +51 @@
     'reqd' => "yes" },
       { 'name' => "buttonname",
-    'desc' => "{AZList.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
     'deft' => "{BasClas.metadata.deft}",
@@ -62 +62 @@
         'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "
-#    usage: classify AZSectionList [options]
-#    options:
-
-#    -metadata X    (required) Metadata field used for classification,
-#                    list will be sorted by this element.
-
-#    -buttonname X  (OPTIONAL) Title field for this classification.
-#                    if not included title field will be Metaname. 
-
-#    -removeprefix regex A prefix to ignore in the Metadata values
-#                        for the field when sorting.
-#  This is very similar to AZList except it sorts by section level metadata
-#  (excluding the top level) instead of just top level metadata.
-#  ";
-#  }
 
 sub new {
@@ -87 +70 @@
     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;
+    #}
 
     return bless $self, $class;