Changeset 21289 for main

Timestamp:

2009-12-07T14:39:30+13:00 (14 years ago)

Author:

kjdon

Message:

extension handling extended to include gs3 extensions

File:

• main/trunk/greenstone2/perllib/gsprintf.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/gsprintf.pm

@@ -226 +226 @@
     }
     }
+    if (defined $ENV{'GSDL3EXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDL3EXTS'});
+    foreach my $e (@extensions) {   
+        my $ext_base
+        = &util::filename_cat($ENV{'GSDL3SRCHOME'},"ext",$e);
+        
+        my $ext_resourcebundlefile 
+        = &util::filename_cat($ext_base,$primary_dir,$resourcename);
+        
+        # can ignore return value (will be same reference to $resourcebundle)
+        read_resource_bundle($ext_resourcebundlefile,$resourcebundle);
+    }
+    }
     
     return %$resourcebundle;