version 1.45, 2006/05/09 15:09:27
|
version 1.46, 2006/05/18 01:08:50
|
Line 34 use Apache::loncommon;
|
Line 34 use Apache::loncommon;
|
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::longroup; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 106 sub handler {
|
Line 107 sub handler {
|
my @sections = (sort {$a <=> $b} keys(%sections_count)); |
my @sections = (sort {$a <=> $b} keys(%sections_count)); |
$seclist = join('","',@sections); |
$seclist = join('","',@sections); |
|
|
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); |
$groupslist = join(',',sort(keys(%curr_groups))); |
$groupslist = join(',',sort(keys(%curr_groups))); |
} |
} |
my $jscript; |
my $jscript; |