version 1.153, 2006/05/23 19:55:40
|
version 1.154, 2006/05/25 19:37:47
|
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."); |