|
version 1.95, 2006/01/21 01:46:14
|
version 1.97, 2006/01/21 08:27:09
|
|
Line 1180 sub get_queue_counts {
|
Line 1180 sub get_queue_counts {
|
| return (0,0,0); |
return (0,0,0); |
| } |
} |
| my ($entries,$ready_to_grade,$locks)=(0,0,0); |
my ($entries,$ready_to_grade,$locks)=(0,0,0); |
| |
my %slot_cache; |
| foreach my $key (sort(keys(%queue))) { |
foreach my $key (sort(keys(%queue))) { |
| if ($key=~/locked$/) { |
if ($key=~/locked$/) { |
| $locks++; |
$locks++; |
|
Line 1189 sub get_queue_counts {
|
Line 1190 sub get_queue_counts {
|
| my ($symb,$uname,$udom) = &decode_queue_key($key); |
my ($symb,$uname,$udom) = &decode_queue_key($key); |
| $entries++; |
$entries++; |
| my $slot=$queue{$key}->[0]; |
my $slot=$queue{$key}->[0]; |
| my %slot_data=&Apache::lonnet::get_slot($slot); |
if (!exists($slot_cache{$slot})) { |
| if (time > $slot_data{'endtime'}) { |
my %slot_data=&Apache::lonnet::get_slot($slot); |
| |
$slot_cache{$slot} = \%slot_data; |
| |
} |
| |
if (time > $slot_cache{$slot}{'endtime'}) { |
| $ready_to_grade++; |
$ready_to_grade++; |
| } |
} |
| } |
} |
|
Line 1330 sub get_from_queue {
|
Line 1334 sub get_from_queue {
|
| $cdom,$cnum); |
$cdom,$cnum); |
| &Apache::lonxml::debug("$starttime"); |
&Apache::lonxml::debug("$starttime"); |
| my $regexp="^$symb\0queue\0"; |
my $regexp="^$symb\0queue\0"; |
| my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
my $range= ($attempts < 1 ) ? '0-100' : '0-400'; |
| |
|
| |
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp,$range); |
| #make a pass looking for a user _not_ in my section |
#make a pass looking for a user _not_ in my section |
| if ($env{'request.course.sec'}) { |
if ($env{'request.course.sec'}) { |
| &Apache::lonxml::debug("sce"); |
&Apache::lonxml::debug("sce"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to bridgetask.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework