--- loncom/homework/grades.pm 2010/04/07 15:32:32 1.606 +++ loncom/homework/grades.pm 2010/04/07 21:08:35 1.607 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.606 2010/04/07 15:32:32 wenzelju Exp $ +# $Id: grades.pm,v 1.607 2010/04/07 21:08:35 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9239,6 +9239,13 @@ sub navmap_errormsg { &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','',''). ''; } +sub startpage{ + my ($r,$crumbs) = @_; + + unshift(@$crumbs, {href=>"/adm/grades",text=>"Grading"}); + $r->print(&Apache::loncommon::start_page('Grading',undef, + {'bread_crumbs' => $crumbs})); +} sub handler { my $request=$_[0]; @@ -9258,11 +9265,8 @@ sub handler { if ($#commands > 0) { &Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands)); } - + $ssi_error = 0; - my $brcrum = [{href=>"/adm/grades",text=>"Grading"}]; - $request->print(&Apache::loncommon::start_page('Grading',undef, - {'bread_crumbs' => $brcrum})); if ($symb eq '' && $command eq '') { # # Not called from a resource @@ -9271,6 +9275,7 @@ sub handler { } else { &init_perm(); if ($command eq 'submission' && $perm{'vgr'}) { + &startpage($request, [{href=>"", text=>"Student Submissions"}]); ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0)); } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) { &pickStudentPage($request); @@ -9281,6 +9286,7 @@ sub handler { } elsif ($command eq 'processGroup' && $perm{'vgr'}) { &processGroup($request); } elsif ($command eq 'gradingmenu' && $perm{'vgr'}) { + &startpage($request); $request->print(&grading_menu($request)); } elsif ($command eq 'individual' && $perm{'vgr'}) { $request->print(&submit_options($request));