[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.251

version 1.249, 2009/05/06 16:19:26 version 1.251, 2010/04/01 00:37:15
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;
 }  }
   
Line 3157  sub proctor_validation_screen { Line 3181  sub proctor_validation_screen {
                             'vali'  => 'Validate',                              'vali'  => 'Validate',
                             'stui'  => "Student who should be logged in is:",                              'stui'  => "Student who should be logged in is:",
                             'name'  => "Name:",                              'name'  => "Name:",
                             'sid'   => "Student/Employee ID:",                              'sid'   => "Student/Employee ID",
                             'unam'  => "Username:",                              'unam'  => "Username:",
                            );                             );
     my $result= (<<ENDCHECKOUT);      my $result= (<<ENDCHECKOUT);
Removed from v.1.249  
changed lines
  Added in v.1.251

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