version 1.43, 2006/05/08 21:40:20
|
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 101 sub handler {
|
Line 102 sub handler {
|
if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) { |
if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) { |
$loaditem{'onload'} ="setSections()"; |
$loaditem{'onload'} ="setSections()"; |
my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'}; |
my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'}; |
my %sections_count = (); |
|
$num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count); |
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); |
my @sections = (); |
my @sections = (sort {$a <=> $b} keys(%sections_count)); |
if ($num_sections > 0) { |
$seclist = join('","',@sections); |
@sections = (sort {$a <=> $b} keys(%sections_count)); |
|
$seclist = join('","',@sections); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); |
} |
$groupslist = join(',',sort(keys(%curr_groups))); |
my (%curr_groups,$numgroups); |
|
$numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
|
$cnum); |
|
if ($numgroups > 0) { |
|
$groupslist = join(',',sort(keys(%curr_groups))); |
|
} |
|
} |
} |
my $jscript; |
my $jscript; |
my $title = 'Selecting a course'; |
my $title = 'Selecting a course'; |