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

Diff for /loncom/interface/lonquickgrades.pm between versions 1.49.6.6.2.1 and 1.49.6.8.2.1

version 1.49.6.6.2.1, 2020/09/08 04:24:18 version 1.49.6.8.2.1, 2022/01/01 18:01:03
Line 67  sub real_handler { Line 67  sub real_handler {
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $clientip = &Apache::lonnet::get_requestor_ip($r);
         my ($blocked,$blocktext) =          my ($blocked,$blocktext) =
             &Apache::loncommon::blocking_status('grades',$cnum,$cdom);              &Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom);
         if ($blocked) {          if ($blocked) {
             my $checkrole = "cm./$cdom/$cnum";              my $checkrole = "cm./$cdom/$cnum";
             if ($env{'request.course.sec'} ne '') {              if ($env{'request.course.sec'} ne '') {
Line 110  sub real_handler { Line 111  sub real_handler {
             my $preamble = '<div id="LC_update_'.$cid.'" class="LC_info">'.              my $preamble = '<div id="LC_update_'.$cid.'" class="LC_info">'.
                            '<br />'.                             '<br />'.
                            &mt('Your course session is being updated because of recent changes by course personnel.').                             &mt('Your course session is being updated because of recent changes by course personnel.').
                            ' '.&mt('Please be patient.').'<br /></div>'.                             ' '.&mt('Please be patient').'.<br /></div>'.
                            '<div style="padding:0;clear:both;margin:0;border:0"></div>';                             '<div style="padding:0;clear:both;margin:0;border:0"></div>';
             my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);              my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
             &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));              &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
             $r->rflush();              $r->rflush();
             my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");              my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
             &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished'));              &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!'));
             &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);              &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
             my $closure = <<ENDCLOSE;              my $closure = <<ENDCLOSE;
 <script type="text/javascript">  <script type="text/javascript">
Removed from v.1.49.6.6.2.1  
changed lines
  Added in v.1.49.6.8.2.1

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