[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[raeburn]

raeburn		Mon Apr  1 21:40:14 2013 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - Bug 5453.
    - Assistant co-authors can browse published resources from the authoring 
      space for which they have the aa role.
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.336 loncom/homework/lonhomework.pm:1.337
--- loncom/homework/lonhomework.pm:1.336	Tue Dec 18 16:48:19 2012
+++ loncom/homework/lonhomework.pm	Mon Apr  1 21:40:14 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.336 2012/12/18 16:48:19 raeburn Exp $
+# $Id: lonhomework.pm,v 1.337 2013/04/01 21:40:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -508,7 +508,6 @@
   #    return ('UNCHECKEDOUT','needs to be checked out');
   #}
 
-
     &Apache::lonxml::debug("sending back :$status:$datemsg:");
     if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {
 	&Apache::lonxml::debug("should be allowed to browse a resource when closed");
@@ -608,6 +607,9 @@
 
 sub setuppermissions {
     $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$env{'request.filename'});
+    unless ($Apache::lonhomework::browse eq 'F') {
+        $Apache::lonhomework::browse=&Apache::lonnet::allowed('bro',$env{'request.filename'}); 
+    }
     my $viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
     if (! $viewgrades && 
 	exists($env{'request.course.sec'}) &&