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

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -25 +25 @@
 
 # classifier plugin for generating hierarchical classifications
-
-# options for this classifier are:
-# -hfile file.txt    - classification file
-# -metadata Metaname - metadata field to test against file.txt
-# -sort Meta         - this option is optional (genious;-). by default this 
-#                     classifier will sort documents within each section 
-#                     alphabetically by Title. sort=nosort prevents sorting 
-#                     (i.e. documents will end up in build order), sort=Meta 
-#                     will sort each field alphabetically by Meta (Meta may 
-#                     also be 'Filename' to sort by the original filename).
-# -buttonname Title  - another optional field. this is what will end up in the
-#                     Title field for this classification. if not present it
-#                     defaults to Metaname
-# -hlist_at_top      - use a horizontal list for the top level (i.e. display it
-#                     like an AZList classification)
 
 # 12/05/02 Added usage datastructure - John Thompson
@@ -66 +51 @@
     'reqd' => "yes" },
       { 'name' => "buttonname",
-    'desc' => "{Hierarchy.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
     'deft' => "{BasClas.metadata.deft}",
@@ -87 +72 @@
     'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "
-#    usage: classify Hierarchy [options]
-#    options:
-
-#     -buttonname X  Title field for this classification.
-#                    Defaults to metadata name. 
-
-#     -metadata X    Metadata field used for classification,
-#                    list will be sorted by this element, 
-#                    unless -sort is used.
-
-#     -hfile X       The classification structure file
-
-#     -sort X        Metadata field to sort by (defaults to -metadata)
-#                    use '-sort nosort' for no sorting.
-
-#     -hlist_at_top  Display the first level of the classification
-#                    horizontally.
-#  ";
-#  }
-
 
 sub new {
@@ -114 +77 @@
     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 );
-   
+ 
+    if ($self->{'info_only'}) {
+    # created from classinfo.pl - don't need to parse the arguments
+    return bless $self, $class;
+    }
+ 
     my ($hfile, $metadata, $sortname, $title, $hlist_at_top);