[LON-CAPA-cvs] cvs: loncom /auth roles.tab /interface lonhtmlcommon.pm

raeburn raeburn@source.lon-capa.org
Sat, 07 Nov 2009 17:25:43 -0000


raeburn		Sat Nov  7 17:25:43 2009 EDT

  Modified files:              
    /loncom/auth	roles.tab 
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - Bug 4315.
  
  
Index: loncom/auth/roles.tab
diff -u loncom/auth/roles.tab:1.58 loncom/auth/roles.tab:1.59
--- loncom/auth/roles.tab:1.58	Fri Nov  6 01:49:01 2009
+++ loncom/auth/roles.tab	Sat Nov  7 17:25:33 2009
@@ -26,7 +26,7 @@
 au:d are:ere:cca&IK:caa&IK
 ca:s gan:sma:bre:cre:adv:pav:pfo
 ca:d are:ere
-aa:s sma:bro
+aa:s sma:bro:pav
 aa:d are:ere
 dg:d bre&R
 sc:d usc
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.240 loncom/interface/lonhtmlcommon.pm:1.241
--- loncom/interface/lonhtmlcommon.pm:1.240	Fri Nov  6 18:32:42 2009
+++ loncom/interface/lonhtmlcommon.pm	Sat Nov  7 17:25:43 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.240 2009/11/06 18:32:42 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.241 2009/11/07 17:25:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1128,7 +1128,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; }