Changeset 21289

Show
Ignore:
Timestamp:
07.12.2009 14:39:30 (10 years ago)
Author:
kjdon
Message:

extension handling extended to include gs3 extensions

Files:
1 modified

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;