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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -62 +62 @@
     'reqd' => "yes" },
       { 'name' => "buttonname",
-    'desc' => "{AZCompactList.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
     'deft' => "{BasClas.metadata.deft}",
@@ -127 +127 @@
     'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "
-#    usage: classify AZCompactList -metadata X [options]
-#    options:
-#     -metadata X            (required) Metadata field used for classification
-#     -buttonname X          Title to use on web pages (defaults to metadata)
-#     -removeprefix regex    pattern to remove from metadata before sorting
-#     -doclevel top|section  (Defaults to top)
-#     -freqsort              Sort by node frequency rather than alpha-numeric
-#     -mingroup N            Minimum num of documents required to form a new group
-#     -minnesting N          Minimum list size to become a nested list
-#     -mincompact N          Used in compact list
-#     -maxcompact N          Used in compact list
-#     -onlyfirst             Only use the first value if metadata is repeated.
-#     -recopt
-#  ";
-#  }
 
 sub new {
@@ -153 +136 @@
     push( @{$option_list}, $options );
 
+    if ($self->{'info_only'}) {
+    # created from classinfo.pl - don't need to parse the arguments
+    return bless $self, $class;
+    }
 
     my ($metaname, $title, $removeprefix, $removesuffix);