loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2006/05/09 14:38:10	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);	my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum);
$groupslist = join(',',sort(keys(%curr_groups)));	$groupslist = join(',',sort(keys(%curr_groups)));
}	}