[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Tue, 25 Sep 2007 00:21:14 -0000


albertel		Mon Sep 24 20:21:14 2007 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - BUG#5445, images in /uploaded/ html files  not viewable (incorrect 
    url stored into $env{'httpref.'...})
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.912 loncom/lonnet/perl/lonnet.pm:1.913
--- loncom/lonnet/perl/lonnet.pm:1.912	Wed Sep 12 16:29:16 2007
+++ loncom/lonnet/perl/lonnet.pm	Mon Sep 24 20:21:12 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.912 2007/09/12 20:29:16 raeburn Exp $
+# $Id: lonnet.pm,v 1.913 2007/09/25 00:21:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7832,6 +7832,9 @@
 	$file=~s-^/home/httpd/lonUsers/($match_domain)/./././($match_name)/userfiles/
 	    -/uploaded/$1/$2/-x;
     }
+    if ($file=~ m{^/userfiles/}) {
+	$file =~ s{^/userfiles/}{/uploaded/};
+    }
     return $file;
 }