[LON-CAPA-cvs] cvs: loncom /imspackages imsimport.pm

[raeburn]

raeburn		Wed Dec 24 07:57:39 2008 EDT

  Modified files:              
    /loncom/imspackages	imsimport.pm 
  Log:
  - Regular Expressions for both http and https.
  
  
Index: loncom/imspackages/imsimport.pm
diff -u loncom/imspackages/imsimport.pm:1.25 loncom/imspackages/imsimport.pm:1.26
--- loncom/imspackages/imsimport.pm:1.25	Tue Aug 26 01:35:15 2008
+++ loncom/imspackages/imsimport.pm	Wed Dec 24 07:57:39 2008
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 # 
-# $Id: imsimport.pm,v 1.25 2008/08/26 01:35:15 www Exp $
+# $Id: imsimport.pm,v 1.26 2008/12/24 07:57:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -722,7 +722,7 @@
     my $fn;
     if ($env{'form.filename'}) {
         $fn=$env{'form.filename'};
-        $fn=~s/^http\:\/\/[^\/]+\///;
+        $fn=~s/^https?\:\/\/[^\/]+\///;
         $fn=~s/^\///;
         $fn=~s/(\~|priv\/)($LONCAPA::username_re)//;
         $fn=~s/\/+/\//g;