--- loncom/interface/lonmenu.pm 2011/12/09 01:04:27 1.365 +++ loncom/interface/lonmenu.pm 2012/02/03 00:15:14 1.368 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.365 2011/12/09 01:04:27 www Exp $ +# $Id: lonmenu.pm,v 1.368 2012/02/03 00:15:14 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1132,12 +1132,14 @@ sub utilityfunctions { my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'. &mt('Switch server?'); + my $esc_url=&escape($currenturl); + my $esc_symb=&escape($currentsymb); return (< 'cst', '/adm/trackstudent' => 'vsa', '/adm/statistics' => 'vgr', + '/adm/setblock' => 'dcm', + '/adm/coursedocs' => 'mdc', }; unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { $privs->{'/adm/classcalc'} = 'vgr',