--- loncom/homework/grades.pm 2010/04/14 15:04:58 1.619 +++ loncom/homework/grades.pm 2010/04/16 18:29:33 1.620 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.619 2010/04/14 15:04:58 www Exp $ +# $Id: grades.pm,v 1.620 2010/04/16 18:29:33 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9211,7 +9211,8 @@ sub handler { &startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"},{href=>'', text=>"Modify grades"}]); $request->print(&viewgrades($request,$symb)); } elsif ($command eq 'handgrade' && $perm{'mgr'}) { - &startpage($request,$symb); + &startpage($request,$symb,[{href=>'',text=>'...'}, + {href=>'',text=>'Store grades'}]); $request->print(&processHandGrade($request,$symb)); } elsif ($command eq 'editgrades' && $perm{'mgr'}) { &startpage($request,$symb,[{href=>&href_symb_cmd($symb,"table"), text=>"Grading table"}, @@ -9293,7 +9294,7 @@ sub handler { &startpage($request,$symb,[{href=>'', text=>'Grade/Manage/Review Bubblesheets'}],1,1); $request->print(&checkscantron_results($request,$symb)); } elsif ($command) { - &startpage($request,$symb); + &startpage($request,$symb,[{href=>'', text=>'Access denied'}]); $request->print('

'.&mt('Access Denied ([_1])',$command).'

'); } }