Changeset 11681

Timestamp:

2006-04-21T15:20:09+12:00 (18 years ago)

Author:

kjdon

Message:

print_xml_usage and print_xml_header now take arguments

Location:

trunk/gsdl/perllib

Files:

• classify/BasClas.pm (modified) (1 diff)
• plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -111 +111 @@
 {
     my $self = shift(@_);
-
+    my $header = shift(@_);
+    
     # XML output is always in UTF-8
     &gsprintf::output_strings_in_UTF8;
 
-    &PrintUsage::print_xml_header("classify");
+    if ($header) {
+    &PrintUsage::print_xml_header("classify");
+    }
     $self->print_xml();
 }

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -237 +237 @@
 {
     my $self = shift(@_);
-
+    my $header = shift(@_);
+    
     # XML output is always in UTF-8
     gsprintf::output_strings_in_UTF8;
 
-    PrintUsage::print_xml_header("plugin");
+    if ($header) {
+    &PrintUsage::print_xml_header("plugin");
+    }
     $self->print_xml();
 }