Changeset 11669

Timestamp:

2006-04-21T11:26:39+12:00 (18 years ago)

Author:

kjdon

Message:

need to pass a parameter to print_xml_header so it knows which DTD to output, and super class output is now outside of Arguments

Location:

trunk/gsdl/perllib

Files:

• classify/BasClas.pm (modified) (2 diffs)
• plugins/BasPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -115 +115 @@
     &gsprintf::output_strings_in_UTF8;
 
-    &PrintUsage::print_xml_header();
+    &PrintUsage::print_xml_header("classify");
     $self->print_xml();
 }
@@ -141 +141 @@
     &PrintUsage::print_options_xml($classifieroptions->{'args'});
     }
+    &gsprintf(STDERR, "  </Arguments>\n");
 
     # Recurse up the classifier hierarchy
     $self->print_xml();
 
-    &gsprintf(STDERR, "  </Arguments>\n");
     &gsprintf(STDERR, "</ClassInfo>\n");
 }

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -241 +241 @@
     gsprintf::output_strings_in_UTF8;
 
-    PrintUsage::print_xml_header();
+    PrintUsage::print_xml_header("plugin");
     $self->print_xml();
 }
@@ -269 +269 @@
     &PrintUsage::print_options_xml($pluginoptions->{'args'});
     }
-
+    gsprintf(STDERR, "  </Arguments>\n");
     # Recurse up the plugin hierarchy
     $self->print_xml();
-
-    gsprintf(STDERR, "  </Arguments>\n");
     gsprintf(STDERR, "</PlugInfo>\n");
 }