[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /interface lonhtmlcommon.pm

[raeburn]

raeburn		Tue Nov 24 06:23:14 2009 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - Backport 1.241, 1.249.
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.182.2.1 loncom/interface/lonhtmlcommon.pm:1.182.2.2
--- loncom/interface/lonhtmlcommon.pm:1.182.2.1	Mon Jan 12 01:53:38 2009
+++ loncom/interface/lonhtmlcommon.pm	Tue Nov 24 06:23:14 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.182.2.1 2009/01/12 01:53:38 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.182.2.2 2009/11/24 06:23:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1092,7 +1092,7 @@
     my $output='';
     unless ($noformat) { $output.='<br /><tt><b>'; }
     $output.='<font size="'.$size.'">'.$prefix.'/';
-    if ($env{'user.adv'}) {
+    if (($env{'user.adv'}) || ($env{'user.author'})) {
 	my $path=$prefix.'/';
 	foreach my $dir (split('/',$uri)) {
             if (! $dir) { next; }