Changeset 19055 for gsdl

Timestamp:

2009-04-19T19:33:28+12:00 (15 years ago)

Author:

davidb

Message:

Better use of @INC to include Greenstone's perllib areas so 'use' and 'require' statements can be simpler

File:

• gsdl/trunk/cgi-bin/gsdlCGI.pm (modified) (1 diff)

gsdl/trunk/cgi-bin/gsdlCGI.pm

@@ -411 +411 @@
     $ENV{'GSDLOS'} = $gsdlos;
 
+
     my $library_url = $self->get_library_url_suffix(); # best to have GSDLOS set beforehand
     $self->{'library_url_suffix'} = $library_url;
 
-    require "$gsdlhome/perllib/util.pm";
+    unshift(@INC, "$ENV{'GSDLHOME'}/perllib");
+    require util;
 
     if($self->{'greenstone_version'} == 3) {