Changeset 10228

Timestamp:

2005-07-08T09:53:43+12:00 (19 years ago)

Author:

kjdon

Message:

added a check for undefined var in lookup_string

File:

• trunk/gsdl/perllib/gsprintf.pm (modified) (1 diff)

trunk/gsdl/perllib/gsprintf.pm

@@ -70 +70 @@
 {
     my ($stringkey) = @_;
+    return "" unless defined $stringkey;
     # Try the language-specific resource bundle first
     my $utf8string = $specialresourcebundle{$stringkey};