Changeset 27306 for main/trunk/greenstone2/perllib/unicode.pm
- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/unicode.pm
r24193 r27306 36 36 use strict; 37 37 use util; 38 use FileUtils; 38 39 use MIME::Base64; # for base64 encoding 39 40 … … 247 248 my $encodename = "$encoding-unicode"; 248 249 my $enc_info = $encodings::encodings->{$encoding}; 249 my $mapfile = & util::filename_cat($ENV{'GSDLHOME'}, "mappings",250 my $mapfile = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "mappings", 250 251 "to_uc", $enc_info->{'mapfile'}); 251 252 if (!&loadmapencoding ($encodename, $mapfile)) { … … 499 500 500 501 my $enc_info = $encodings::encodings->{$encoding}; 501 my $mapfile = & util::filename_cat($ENV{'GSDLHOME'}, "mappings",502 my $mapfile = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "mappings", 502 503 "from_uc", $enc_info->{'mapfile'}); 503 504 if (!&loadmapencoding ($encodename, $mapfile)) {
Note:
See TracChangeset
for help on using the changeset viewer.