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

Diff for /loncom/homework/bridgetask.pm between versions 1.249 and 1.250

version 1.249, 2009/05/06 16:19:26 version 1.250, 2010/01/12 17:05:12
Line 1308  DONEBUTTON Line 1308  DONEBUTTON
     $Apache::lonhomework::results{"resource.$version.0.solved"};      $Apache::lonhomework::results{"resource.$version.0.solved"};
     }      }
     &minimize_storage();      &minimize_storage();
     &Apache::structuretags::finalize_storage();              my $canstore;
                   if ($env{'form.gradingkey'}) {
                   my ($symb,$courseid,$domain,$name) =
                       &Apache::lonnet::whichuser();
                   my $todo=&unescape($env{'form.gradingkey'});
                   my ($keysymb,$uname,$udom)=&decode_queue_key($todo);
                   if ($symb eq $keysymb) {
                       if (($domain eq $udom) && ($name eq $uname)) {
                           $canstore = 1;           
                       }
                   }
               }
               if ($canstore) {
           &Apache::structuretags::finalize_storage();
               } else {
                   $result .= '<br /><div class="LC_error">'.
                              &mt('Information extracted from the current gradingkey was for a different BT or user from those for which grading data are to be stored.').' '.&mt('No grading changes stored.').'</div><br />';  
               }
   
     # data stored, now handle queue      # data stored, now handle queue
     if ($review) {      if ($review) {
  if ($env{'form.queue'} eq 'reviewqueue') {   if ($env{'form.queue'} eq 'reviewqueue') {
Line 1395  DONEBUTTON Line 1412  DONEBUTTON
     }      }
     &Apache::structuretags::reset_problem_globals('Task');      &Apache::structuretags::reset_problem_globals('Task');
     undef($Apache::lonhomework::parsing_a_task);      undef($Apache::lonhomework::parsing_a_task);
       if ( ($target eq 'grade' && $env{'form.webgrade'}) ||
             $target eq 'webgrade') {
           delete($env{'form.grade_symb'});
           delete($env{'form.grade_domain'});
           delete($env{'form.grade_username'});
           delete($env{'form.grade_courseid'});
       }
     return $result;      return $result;
 }  }
   
Removed from v.1.249  
changed lines
  Added in v.1.250

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