version 1.43, 2006/05/08 21:40:20
|
version 1.45, 2006/05/09 15:09:27
|
Line 101 sub handler {
|
Line 101 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::loncommon::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'; |