Changeset 6984

Timestamp:

2004-03-09T15:12:46+13:00 (20 years ago)

Author:

kjdon

Message:

changed some error messages

Location:

trunk/gsdl/perllib/classify

Files:

• AZList.pm (modified) (1 diff)
• Hierarchy.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -92 +92 @@
 
     if (!$metadata) {
-    print STDERR "AZList: -metadata option REQUIRED \n";
+    print STDERR "AZList Error: required option -metadata not supplied \n";
     $self->print_txt_usage("");  # Use default resource bundle
     
-    die "AZList: -metadata option REQUIRED\n";
+    die "AZList Error: required option -metadata not supplied\n";
     }
     

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -100 +100 @@
 
     if (!$metadata) {
-    print STDERR "$class: -metadata option REQUIRED \n";
+    print STDERR "$class Error: required option -metadata not supplied\n";
     $self->print_txt_usage("");  # Use default resource bundle
     
-    die "$class: -metadata option REQUIRED\n";
+    die "$class Error: required option -metadata not supplied\n";
     }
     
     if (!$hfile) {
-    print STDERR "$class: -hfile option REQUIRED \n";
+    print STDERR "$class Error: required option -hfile not supplied\n";
     $self->print_txt_usage("");  # Use default resource bundle
     
-    die "$class: -hfile option REQUIRED\n";
+    die "$class Error: required option -hfile not supplied\n";
     }