Ignore:
Timestamp:
2009-12-07T14:39:30+13:00 (12 years ago)
Author:
kjdon
Message:

extension handling extended to include gs3 extensions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/gsprintf.pm

    r19026 r21289  
    226226    }
    227227    }
     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    }
    228241   
    229242    return %$resourcebundle;
Note: See TracChangeset for help on using the changeset viewer.