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

trunk/gsdl/perllib/classify/HTML.pm

@@ -26 +26 @@
 # html classifier plugin - creates an empty classification
 # that's simply a link to a web page
-# options are:
-# buttonname=Title  -- (optional) the title field for this classification.
-#                      if not included title field 'Browse'
-# url=url           -- the url of the web page to link to
-
-# 12/05/02 Added usage datastructure - John Thompson
 
 package HTML;
@@ -47 +41 @@
     'reqd' => "yes" } ,
       { 'name' => "buttonname",
-    'desc' => "{HTML.buttonname}",
+    'desc' => "{BasClas.buttonname}",
     'type' => "string",
     'deft' => "Browse",
@@ -58 +52 @@
         'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "
-#    usage: classify AZList [options]
-#    options:
-#     -url X         The url of the web page to link to.
-#     -buttonname X  (optional) the title field for this classification.
-#                    The default is 'Browse'
-
-#  HTML classifier plugin - creates classifier that is a link to a web page
-
-#  ";
-#  }
 
 sub new {