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

trunk/gsdl/perllib/classify/Collage.pm

@@ -24 +24 @@
 ###########################################################################
 
-# simple list classifier plugin 
-# options are:
-# metadata=Metaname -- (optional) all documents with Metaname metadata
-#                      will be included in list. if not included all documents
-#                      will be included in list.
-# sort=Meta         -- (optional) sort documents in list alphabetically by
-#                      Meta. by default it will sort by Metaname, if neither
-#                      are set documents will be in build (random) order.
-#                      Meta may be Filename to sort by original filename or
-#                      nosort to force not to sort
-# buttonname=Title  -- (optional) the title field for this classification.
-#                      if not included title field will be Metaname. 
-#                      if metadata is also not included title will be 'List'
-
-# 12/05/02 Added usage datastructure - John Thompson
+package Collage;
 
 use BasClas;
-package Collage;
-
 use sorttools;
 
@@ -51 +35 @@
 my $arguments = 
     [ { 'name' => "buttonname",
-    'desc' => "{Collage.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
-    'deft' => "Metadata element specified with -metadata",
+    'deft' => "Collage",
     'reqd' => "no" }];
 
@@ -61 +45 @@
         'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "
-#    usage: classify List [options]
-#    options:
-
-#     -buttonname X  (optional) Title field for this classification.
-#                    if not included title field will be Metaname. 
-#  ";
-#  }
 
 sub new {
@@ -75 +50 @@
     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 ($title, $list);