Changeset 6932 for trunk/gsdl/perllib/classify

Timestamp:

2004-03-05T10:37:38+13:00 (20 years ago)

Author:

kjdon

Message:

changed the output slightly, and now outputs the classifier/plugin description

File:

• trunk/gsdl/perllib/classify/BasClas.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -175 +175 @@
     local $classifiername = $classifieroptions->{'name'};
     local $classifierargs = $classifieroptions->{'args'};
-
+    local $classifierdesc = $classifieroptions->{'desc'};
     # Produce the usage information using the data structure above
     if ($isleafclass) {
+    if (defined($classifierdesc)) {
+        &gsprintf(STDERR, "$classifierdesc\n\n");
+    }
     &gsprintf(STDERR, " {common.usage}: classify $classifiername [{common.options}]\n\n");
+    
     }