Changeset 27306 for main/trunk/greenstone2/perllib/gsprintf.pm
- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/gsprintf.pm
r25499 r27306 32 32 use unicode; 33 33 use util; 34 use FileUtils; 34 35 35 36 @gsprintf::EXPORT_OK = qw(gsprintf); # functions we can export into namespace … … 236 237 237 238 my $primary_resourcebundlefile 238 = & util::filename_cat($bundle_base,$primary_dir,$resourcename);239 = &FileUtils::filenameConcatenate($bundle_base,$primary_dir,$resourcename); 239 240 240 241 my $resourcebundle = read_resource_bundle($primary_resourcebundlefile); … … 245 246 foreach my $e (@extensions) { 246 247 my $ext_base 247 = & util::filename_cat($bundle_base,"ext",$e);248 = &FileUtils::filenameConcatenate($bundle_base,"ext",$e); 248 249 249 250 my $ext_resourcebundlefile 250 = & util::filename_cat($ext_base,$primary_dir,$resourcename);251 = &FileUtils::filenameConcatenate($ext_base,$primary_dir,$resourcename); 251 252 252 253 # can ignore return value (will be same reference to $resourcebundle) … … 258 259 foreach my $e (@extensions) { 259 260 my $ext_base 260 = & util::filename_cat($ENV{'GSDL3SRCHOME'},"ext",$e);261 = &FileUtils::filenameConcatenate($ENV{'GSDL3SRCHOME'},"ext",$e); 261 262 262 263 my $ext_resourcebundlefile 263 = & util::filename_cat($ext_base,$primary_dir,$resourcename);264 = &FileUtils::filenameConcatenate($ext_base,$primary_dir,$resourcename); 264 265 265 266 # can ignore return value (will be same reference to $resourcebundle)
Note:
See TracChangeset
for help on using the changeset viewer.