Changeset 19055

Show
Ignore:
Timestamp:
19.04.2009 19:33:28 (10 years ago)
Author:
davidb
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/cgi-bin/gsdlCGI.pm

    r18967 r19055  
    411411    $ENV{'GSDLOS'} = $gsdlos; 
    412412 
     413 
    413414    my $library_url = $self->get_library_url_suffix(); # best to have GSDLOS set beforehand 
    414415    $self->{'library_url_suffix'} = $library_url; 
    415416 
    416     require "$gsdlhome/perllib/util.pm"; 
     417    unshift(@INC, "$ENV{'GSDLHOME'}/perllib"); 
     418    require util; 
    417419 
    418420    if($self->{'greenstone_version'} == 3) {