[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 08 Nov 2003 10:48:33 -0000
albertel Sat Nov 8 05:48:33 2003 EDT
Modified files:
/loncom/publisher loncfile.pm
Log:
- BUG#1904
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.42 loncom/publisher/loncfile.pm:1.43
--- loncom/publisher/loncfile.pm:1.42 Thu Sep 11 17:02:38 2003
+++ loncom/publisher/loncfile.pm Sat Nov 8 05:48:33 2003
@@ -9,7 +9,7 @@
# and displays a page showing the results of the action.
#
#
-# $Id: loncfile.pm,v 1.42 2003/09/11 21:02:38 albertel Exp $
+# $Id: loncfile.pm,v 1.43 2003/11/08 10:48:33 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -168,7 +168,7 @@
sub display {
my $fn=shift;
- $fn=~s/^\/home\/(\w+)\/public\_html//;
+ $fn=~s-^/home/(\w+)/public_html-/priv/$1-;
return '<tt>'.$fn.'</tt>';
}