Changeset 6111 for trunk/gsdl/perllib/classify/BasClas.pm

Timestamp:

2003-12-03T12:02:55+13:00 (20 years ago)

Author:

jmt12

Message:

Changed the description for the -metadata flag to foreshadow the coming enhancement. This commit also happens to include the prototype -ignore_arguments flag to AZList, that will never actually be used because of the aforementioned metadata enhancement.

File:

• trunk/gsdl/perllib/classify/BasClas.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -51 +51 @@
 
 # 09/05/02 Added usage datastructure - John Thompson
+# 28/11/03 Commented out verbosity argument - John Thompson
 
 use parsargv;
@@ -66 +67 @@
     'type' => "string",
     'deft' => "STDERR" },
-      { 'name' => "verbosity",
-    'desc' => "{BasClas.verbosity}",
-    'type' => "enum",
-    'deft' => "2",
-    'reqd' => "no" } ];
+#      { 'name' => "verbosity",
+#   'desc' => "{BasClas.verbosity}",
+#   'type' => "enum",
+#   'deft' => "2",
+#   'reqd' => "no" } ];
+      { 'name' => "ignore_namespace",
+    'desc' => "{BasClas.ignore_namespace}",
+    'type' => "flag"} ];
 
 my $options = { 'name'     => "BasClas",
@@ -236 +240 @@
              q^outhandle/.*/STDERR^, \$self->{'outhandle'},
              q^verbosity/\d/2^, \$self->{'verbosity'},
+             q^ignore_namespace^, \$self->{'ignore_namespace'},
              "allow_extra_options")) {