Changeset 14735
- Timestamp:
- 2007-10-26T16:31:09+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugout.pm
r14660 r14735 53 53 54 54 # find the plugout 55 my $customplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 56 'perllib', 'plugouts', "${plugoutname}.pm"); 55 my $customplugname; 56 if (defined($ENV{'GSDLCOLLECTION'})) 57 { 58 $customplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 59 'perllib', 'plugouts', "${plugoutname}.pm"); 60 } 61 57 62 my $colplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 'perllib', 'plugouts', 58 63 "${plugoutname}.pm"); 59 64 my $mainplugname = &util::filename_cat($ENV{'GSDLHOME'}, 'perllib', 'plugouts', 60 65 "${plugoutname}.pm"); 61 if ( -e $customplugname) { require $customplugname; }66 if (defined($customplugname) && -e $customplugname) { require $customplugname; } 62 67 elsif (-e $colplugname) { require $colplugname; } 63 68 elsif (-e $mainplugname) { require $mainplugname; }
Note:
See TracChangeset
for help on using the changeset viewer.