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

Diff for /loncom/homework/bridgetask.pm between versions 1.252 and 1.253

version 1.252, 2010/08/23 03:24:01 version 1.253, 2010/09/27 18:45:14
Line 1334  DONEBUTTON Line 1334  DONEBUTTON
             }              }
             if ($canstore) {              if ($canstore) {
         &Apache::structuretags::finalize_storage();          &Apache::structuretags::finalize_storage();
           # data stored, now handle queue
           if ($review) {
       if ($env{'form.queue'} eq 'reviewqueue') {
           &check_queue_unlock($env{'form.queue'});
           &Apache::lonxml::debug(" still needs review not changing status.");
       } else {
           if ($env{'form.queue'} ne 'none') {
       &move_between_queues($env{'form.queue'},'reviewqueue');
           } else {
       &add_to_queue('reviewqueue',\%queue_data);
           }
       }
           } elsif ($ungraded) {
       if ($env{'form.queue'} eq 'reviewqueue') {
           &Apache::lonxml::debug("moving back.");
           &move_between_queues($env{'form.queue'},
        'gradingqueue');
       } elsif ($env{'form.queue'} eq 'none' ) {
           &add_to_queue('gradingqueue',\%queue_data);
       } else {
           &check_queue_unlock($env{'form.queue'});
       }
           } elsif ($mandatory_failed) {
       &remove_from_queue($env{'form.queue'}); 
           } else {
       &remove_from_queue($env{'form.queue'});
           }
             } else {              } else {
                   &check_queue_unlock($env{'form.queue'});
                 $result .= '<br /><div class="LC_error">'.                  $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 />';                               &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  
     if ($review) {  
  if ($env{'form.queue'} eq 'reviewqueue') {  
     &check_queue_unlock($env{'form.queue'});  
     &Apache::lonxml::debug(" still needs review not changing status.");  
  } else {  
     if ($env{'form.queue'} ne 'none') {  
  &move_between_queues($env{'form.queue'},'reviewqueue');  
     } else {  
  &add_to_queue('reviewqueue',\%queue_data);  
     }  
  }  
     } elsif ($ungraded) {  
  if ($env{'form.queue'} eq 'reviewqueue') {  
     &Apache::lonxml::debug("moving back.");  
     &move_between_queues($env{'form.queue'},  
  'gradingqueue');  
  } elsif ($env{'form.queue'} eq 'none' ) {  
     &add_to_queue('gradingqueue',\%queue_data);  
  } else {  
     &check_queue_unlock($env{'form.queue'});  
  }  
     } elsif ($mandatory_failed) {  
  &remove_from_queue($env{'form.queue'});   
     } else {  
  &remove_from_queue($env{'form.queue'});  
     }  
  }  
  if (exists($Apache::lonhomework::results{'INTERNAL_store'})) {   if (exists($Apache::lonhomework::results{'INTERNAL_store'})) {
     # instance generation occurred and hasn't yet been stored      # instance generation occurred and hasn't yet been stored
     &Apache::structuretags::finalize_storage();      &Apache::structuretags::finalize_storage();
Removed from v.1.252  
changed lines
  Added in v.1.253

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