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

Diff for /loncom/homework/bridgetask.pm between versions 1.153 and 1.155

version 1.153, 2006/05/23 19:55:40 version 1.155, 2006/05/25 19:39:13
Line 1394  sub pick_from_queue_data { Line 1394  sub pick_from_queue_data {
  }   }
  my $end_time;   my $end_time;
  if (my $slot=&slotted_access($queuedata->{$key})) {   if (my $slot=&slotted_access($queuedata->{$key})) {
       &Apache::lonxml::debug("looking at slot $slot");
     my %slot_data=&Apache::lonnet::get_slot($slot);      my %slot_data=&Apache::lonnet::get_slot($slot);
     if ($slot_data{'endtime'} < time) {       if ($slot_data{'endtime'} < time) { 
  $end_time = $slot_data{'endtime'};   $end_time = $slot_data{'endtime'};
       } else {
    &Apache::lonxml::debug("not time ".$slot_data{'endtime'});
    next;
     }      }
  } else {   } else {
     my $due_date = &Apache::lonhomework::due_date('0',$symb);      my $due_date = &Apache::lonhomework::due_date('0',$symb);
     if ($due_date > time) {      if ($due_date < time) {
  $end_time = $due_date;   $end_time = $due_date;
       } else {
    &Apache::lonxml::debug("not time $due_date");
    next;
     }      }
  }   }
  if ($end_time ne '') {  
     &Apache::lonxml::debug("not time");  
     next;  
  }  
   
  if (exists($queuedata->{"$key\0locked"})) {   if (exists($queuedata->{"$key\0locked"})) {
     &Apache::lonxml::debug("someone already has um.");      &Apache::lonxml::debug("someone already has um.");
Line 1609  sub select_user { Line 1612  sub select_user {
  $seclist.='<input type="hidden" name="chosensections"    $seclist.='<input type="hidden" name="chosensections" 
                                value="'.$sec.'" />';                                 value="'.$sec.'" />';
     }      }
     my $studentdis = $student;  
     $studentdis =~ tr/:/@/;  
     $result.=<<RESULT;      $result.=<<RESULT;
 <tr>  <tr>
   <td>    <td>
Line 1622  sub select_user { Line 1623  sub select_user {
       <input type="submit" name="submit" value="Regrade" />        <input type="submit" name="submit" value="Regrade" />
       $seclist        $seclist
     </form>      </form>
   <td>$fullname->{$student} <tt>($studentdis)</tt></td>    <td>$classlist->{$student}[&Apache::loncoursedata::CL_FULLNAME()] <tt>($student)</tt></td>
   <td>    <td>
 RESULT  RESULT
         }          }
Removed from v.1.153  
changed lines
  Added in v.1.155

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