loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.301, 2009/11/10 13:58:55
+version 1.302, 2009/11/18 04:59:56
  Line 689  sub innerregister {
              }
              # Finally, turn the button on or off
              if ($cfile && !$const_space) {
-                 $editbutton=&switch
+                 my $nocrsedit;
-                     ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
+                 # Suppress display where CC has switched to student role.
+                 if ($env{'request.course.id'}) {
+                     unless(&Apache::lonnet::allowed('mdc',
+                                                     $env{'request.course.id'})) {
+                         $nocrsedit = 1;
+                     }
+                 }
+                 if ($nocrsedit) {
+                     $editbutton=&clear(6,1);
+                 } else {
+                     $editbutton=&switch
+                        ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
                       "go('".$cfile."');","Edit this resource");
-                 $noeditbutton = 0;
+                     $noeditbutton = 0;
+                 }
              } elsif ($editbutton eq '') {
                  $editbutton=&clear(6,1);
              }