[BACK]Return to lonquickgrades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonquickgrades.pm between versions 1.105 and 1.106

version 1.105, 2015/03/13 22:06:10 version 1.106, 2015/03/13 22:34:00
Line 75  sub real_handler { Line 75  sub real_handler {
         return OK;          return OK;
     }      }
   
     # Check for critical messages and redirect if present.      my $cangrade=&Apache::lonnet::allowed('mgr');
     my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);  
     if ($redirect) {      unless ($cangrade) {
         &Apache::loncommon::content_type($r,'text/html');          # Check for critical messages and redirect if present.
         $r->header_out(Location => $url);          my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
         return REDIRECT;          if ($redirect) {
               &Apache::loncommon::content_type($r,'text/html');
               $r->header_out(Location => $url);
               return REDIRECT;
           }
   
           # Check if course needs to be re-initialized
           my $loncaparev = $r->dir_config('lonVersion');
           my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
   
           if ($result eq 'switch') {
               &Apache::loncommon::content_type($r,'text/html');
               $r->send_http_header;
               $r->print(&Apache::loncommon::check_release_result(@reinit));
               return OK;
           } elsif ($result eq 'update') {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
               my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
               if ($ferr) {
                   my $requrl = $r->uri;
                   $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                   $env{'user.reinit'} = 1;
                   return HTTP_NOT_ACCEPTABLE;
               }
           }
     }      }
   
     # Send header, don't cache this page      # Send header, don't cache this page
Line 107  sub real_handler { Line 132  sub real_handler {
   
     &startGradeScreen($r,'quick');      &startGradeScreen($r,'quick');
   
     my $cangrade=&Apache::lonnet::allowed('mgr');  
 #  #
 # Pick student  # Pick student
 #  #
Removed from v.1.105  
changed lines
  Added in v.1.106

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