version 1.156, 2006/05/25 19:55:10
|
version 1.157, 2006/05/25 20:08:18
|
Line 1202 sub get_limited_classlist {
|
Line 1202 sub get_limited_classlist {
|
my ($sections) = @_; |
my ($sections) = @_; |
|
|
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
|
foreach my $student (keys(%$classlist)) { |
|
if ( $classlist->{$student}[&Apache::loncoursedata::CL_STATUS()] |
|
ne 'Active') { |
|
delete($classlist->{$student}); |
|
} |
|
} |
|
|
if (!grep('all',@{ $sections })) { |
if (ref($sections) && !grep('all',@{ $sections })) { |
foreach my $student (keys(%$classlist)) { |
foreach my $student (keys(%$classlist)) { |
my $section = |
my $section = |
$classlist->{$student}[&Apache::loncoursedata::CL_SECTION()]; |
$classlist->{$student}[&Apache::loncoursedata::CL_SECTION()]; |
Line 1341 sub get_queue_counts {
|
Line 1347 sub get_queue_counts {
|
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
|
|
my $classlist=&Apache::loncoursedata::get_classlist(); |
my $classlist=&get_limited_classlist(); |
|
|
my $regexp="^$symb\0"; |
my $regexp="^$symb\0"; |
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
Line 1526 sub get_queue_symb_status {
|
Line 1532 sub get_queue_symb_status {
|
$cnum=$env{'course.'.$cid.'.num'}; |
$cnum=$env{'course.'.$cid.'.num'}; |
$cdom=$env{'course.'.$cid.'.domain'}; |
$cdom=$env{'course.'.$cid.'.domain'}; |
} |
} |
my $classlist=&Apache::loncoursedata::get_classlist(); |
my $classlist=&get_limited_classlist(); |
|
|
my $regexp="^$symb\0"; |
my $regexp="^$symb\0"; |
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp); |
Line 1554 sub get_from_queue {
|
Line 1560 sub get_from_queue {
|
if ($todo) { return $todo; } |
if ($todo) { return $todo; } |
my $attempts=0; |
my $attempts=0; |
|
|
my $classlist=&Apache::loncoursedata::get_classlist(); |
my $classlist=&get_limited_classlist(); |
|
|
while (1) { |
while (1) { |
if ($attempts > 2) { |
if ($attempts > 2) { |