[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /publisher lonpubdir.pm

[raeburn]

raeburn		Sun Dec 21 04:36:58 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/publisher	lonpubdir.pm 
  Log:
  - Backport 1.118.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.110 loncom/publisher/lonpubdir.pm:1.110.2.1
--- loncom/publisher/lonpubdir.pm:1.110	Fri Aug  8 10:08:48 2008
+++ loncom/publisher/lonpubdir.pm	Sun Dec 21 04:36:58 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.110 2008/08/08 10:08:48 bisitz Exp $
+# $Id: lonpubdir.pm,v 1.110.2.1 2008/12/21 04:36:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,7 +156,7 @@
 	#   Replace the ~username of the URL with /home/username/public_html
 	#   so that we don't have to worry about ~ expansion internally.
 	#
-	$fn=~s/^http\:\/\/[^\/]+\///;
+	$fn=~s/^https?\:\/\/[^\/]+\///;
         $fn=~s/^\///;
         $fn=~s{~($LONCAPA::username_re)}{/home/$1/public_html};