Diff for /loncom/homework/grades.pm between versions 1.606 and 1.607

version 1.606, 2010/04/07 15:32:32 version 1.607, 2010/04/07 21:08:35
Line 9239  sub navmap_errormsg { Line 9239  sub navmap_errormsg {
            &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'">','</a>').             &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'">','</a>').
            '</div>';             '</div>';
 }  }
   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 {  sub handler {
     my $request=$_[0];      my $request=$_[0];
Line 9258  sub handler { Line 9265  sub handler {
     if ($#commands > 0) {      if ($#commands > 0) {
  &Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));   &Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));
     }      }
                                
     $ssi_error = 0;      $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 '') {      if ($symb eq '' && $command eq '') {
 #  #
 # Not called from a resource  # Not called from a resource
Line 9271  sub handler { Line 9275  sub handler {
     } else {      } else {
  &init_perm();   &init_perm();
  if ($command eq 'submission' && $perm{'vgr'}) {   if ($command eq 'submission' && $perm{'vgr'}) {
           &startpage($request, [{href=>"", text=>"Student Submissions"}]);
     ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));      ($env{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0));
  } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {   } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) {
     &pickStudentPage($request);      &pickStudentPage($request);
Line 9281  sub handler { Line 9286  sub handler {
  } elsif ($command eq 'processGroup' && $perm{'vgr'}) {   } elsif ($command eq 'processGroup' && $perm{'vgr'}) {
     &processGroup($request);      &processGroup($request);
  } elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {   } elsif ($command eq 'gradingmenu' && $perm{'vgr'}) {
           &startpage($request);
     $request->print(&grading_menu($request));      $request->print(&grading_menu($request));
  } elsif ($command eq 'individual' && $perm{'vgr'}) {   } elsif ($command eq 'individual' && $perm{'vgr'}) {
     $request->print(&submit_options($request));      $request->print(&submit_options($request));

Removed from v.1.606  
changed lines
  Added in v.1.607


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>