--- loncom/interface/lonmenu.pm 2011/10/21 17:14:00 1.315.2.14 +++ loncom/interface/lonmenu.pm 2012/03/03 01:01:33 1.315.2.15.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.315.2.14 2011/10/21 17:14:00 raeburn Exp $ +# $Id: lonmenu.pm,v 1.315.2.15.2.2 2012/03/03 01:01:33 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -743,9 +743,12 @@ s&2&3&forw.gif&forward[_1]&&gopost('/adm c&6&3 c&8&1 c&8&2 -s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'} -s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'} ENDMENUITEMS + if (($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') || + ($env{'request.role'} =~ /^cc/)) { + $menuitems .= "s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}\n"; + } + $menuitems .= "s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}\n"; my $currentURL = &Apache::loncommon::get_symb(); my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL); @@ -783,11 +786,14 @@ ENDREALRES } } if ($env{'request.uri'} =~ /^\/res/) { - my $icontext = &mt('Print'); - $menuitems .= (< 'vgr', }; unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { - $privs->{'/adm/classcalc'} => 'vgr', - $privs->{'/adm/assesscalc'} => 'vgr', - $privs->{'/adm/studentcalc'} => 'vgr'; + $privs->{'/adm/classcalc'} = 'vgr', + $privs->{'/adm/assesscalc'} = 'vgr', + $privs->{'/adm/studentcalc'} = 'vgr'; } return $privs; }