Changeset 21289
- Timestamp:
- 2009-12-07T14:39:30+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/gsprintf.pm
r19026 r21289 226 226 } 227 227 } 228 if (defined $ENV{'GSDL3EXTS'}) { 229 my @extensions = split(/:/,$ENV{'GSDL3EXTS'}); 230 foreach my $e (@extensions) { 231 my $ext_base 232 = &util::filename_cat($ENV{'GSDL3SRCHOME'},"ext",$e); 233 234 my $ext_resourcebundlefile 235 = &util::filename_cat($ext_base,$primary_dir,$resourcename); 236 237 # can ignore return value (will be same reference to $resourcebundle) 238 read_resource_bundle($ext_resourcebundlefile,$resourcebundle); 239 } 240 } 228 241 229 242 return %$resourcebundle;
Note:
See TracChangeset
for help on using the changeset viewer.