Changeset 5682 for trunk/gsdl/perllib/classify.pm

Timestamp:

2003-10-20T15:08:01+13:00 (21 years ago)

Author:

mdewsnip

Message:

Changed to use the gsprintf module, which makes using strings from the resource bundle much easier.

File:

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

trunk/gsdl/perllib/classify.pm

@@ -29 +29 @@
 
 require util;
+use gsprintf;
+
+
+sub gsprintf
+{
+    return &gsprintf::gsprintf(@_);
+}
 
 
@@ -51 +58 @@
     if (-e $colclassname) { require $colclassname; }
     elsif (-e $mainclassname) { require $mainclassname; }
-    else { die "ERROR - couldn't find classifier \"$classname\"\n"; }
+    else { &gsprintf(STDERR, "{classify.could_not_find_classifier}\n", $classname) && die "\n";
+           # die "ERROR - couldn't find classifier \"$classname\"\n";
+       }
 
     # create the classify object