- Timestamp:
- 2004-03-09T17:00:04+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/gsprintf.pm
r6945 r6993 34 34 # Language-specific resource bundle 35 35 my %specialresourcebundle = (); 36 my $specialoutputencoding; 36 our $specialoutputencoding; # our, so that it can be changed outside. 37 37 38 38 # Default resource bundle … … 66 66 { 67 67 my ($stringkey) = @_; 68 69 68 # Try the language-specific resource bundle first 70 69 my $utf8string = $specialresourcebundle{$stringkey}; … … 95 94 96 95 # Return the string matching the key 97 return $utf8string if (!defined($outputencoding) || $outputstringsinUTF8); 96 return $utf8string if (!defined($outputencoding) || $outputstringsinUTF8 97 || $outputencoding eq "utf8"); 98 98 99 99 # If an 8-bit output encoding has been defined, encode the string appropriately
Note:
See TracChangeset
for help on using the changeset viewer.