[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm

[albertel]

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>';
 }