Changeset 12465 for trunk/gsdl/perllib/download.pm

Timestamp:

2006-08-18T09:24:29+12:00 (18 years ago)

Author:

shaoqun

Message:

fixed th bugs on windows

File:

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

trunk/gsdl/perllib/download.pm

@@ -36 +36 @@
 sub load_download {
     my ($download_name,$download_options) = @_;
+
     my ($download_obj);
 
-    my $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 
+    my $coldownloadname ="";
+
+    if ($ENV{'GSDLCOLLECTDIR'}){
+   
+    $coldownloadname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, 
                           "perllib/downloaders", 
                           "${download_name}.pm");
+
+   }
+   
     my $maindownloadname = &util::filename_cat($ENV{'GSDLHOME'},
                            "perllib/downloaders", 
                            "${download_name}.pm");
+
     if (-e $coldownloadname) { require $coldownloadname;}
     elsif (-e $maindownloadname ) { require $maindownloadname; }