Changeset 4759 for trunk/gsdl/perllib/classify/List.pm

Timestamp:

2003-06-23T14:27:08+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up 'options' and 'arguments' structures (representing the options of the plugin) in preparation for removing the print_usage() routines.

File:

• trunk/gsdl/perllib/classify/List.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -50 +50 @@
 
 my $arguments = 
-[ {     'name' => "metadata",
+    [ { 'name' => "metadata",
     'desc' => "Metadata field used for classification. List will be sorted by this element.",
     'type' => "metadata",
     'reqd' => "yes" } ,
-{   'name' => "buttonname",
-    'desc' => "Button name for this classification. Defaults to metadata name.",
+      { 'name' => "buttonname",
+    'desc' => "Button name for this classification.",
     'type' => "string",
-    'reqd' => "no" } ,
-{   'name' => "sort",
-    'desc' => "Sort documents in list by this metadata field. By default it will sort by Metaname, or (if this is not set) in build (random) order.",
+    'deft' => "Metadata element specified with -metadata",
+    'reqd' => "no" },
+      { 'name' => "sort",
+    'desc' => "Metadata field to sort by. If not set, sorts in build (random) order.",
     'type' => "string",
-    'reqd' => "no" } 
-];
-
-my $options = 
-{   'name'     => "List",
-    'desc'     => "Simple list classifier plugin.",
-    'inherits' => "Yes",
-    'args'     => $arguments };
-
+    'deft' => "Metadata field specified with -metadata",
+    'reqd' => "no" } ];
+
+my $options = { 'name'     => "List",
+        'desc'     => "Simple list classifier plugin.",
+        'inherits' => "Yes",
+        'args'     => $arguments };
 
 sub print_usage {
@@ -92 +91 @@
     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 );
-    
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
+
     my ($metaname, $title, $sortname, $list);