Changeset 14735

Timestamp:

2007-10-26T16:31:09+13:00 (17 years ago)

Author:

shaoqun

Message:

make it check whether the custom directory is needed to be checked

File:

• gsdl/trunk/perllib/plugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugout.pm

@@ -53 +53 @@
         
     # find the plugout
-    my $customplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 
-                         'perllib', 'plugouts', "${plugoutname}.pm");
+    my $customplugname;
+    if (defined($ENV{'GSDLCOLLECTION'}))
+    {
+        $customplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "custom", $ENV{'GSDLCOLLECTION'}, 
+                         'perllib', 'plugouts', "${plugoutname}.pm");
+    }
+
     my $colplugname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 'perllib', 'plugouts', 
                       "${plugoutname}.pm");
     my $mainplugname = &util::filename_cat($ENV{'GSDLHOME'}, 'perllib', 'plugouts',
                       "${plugoutname}.pm");
-    if (-e $customplugname) { require $customplugname; }
+    if (defined($customplugname) && -e $customplugname) { require $customplugname; }
     elsif (-e $colplugname) { require $colplugname; }
     elsif (-e $mainplugname) { require $mainplugname; }