loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2005/10/03 23:53:25	version 1.31, 2005/10/04 00:27:22
Line 111 ENDDOCUMENT	Line 111 ENDDOCUMENT
$num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);	$num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
my @sections = ();	my @sections = ();
if ($num_sections > 0) {	if ($num_sections > 0) {
@sections = (sort {$a <=> $b} keys %sections_count);	@sections = (sort {$a <=> $b} keys(%sections_count));
$seclist = join('","',@sections);	$seclist = join('","',@sections);
}	}
}	}
Line 272 ENDSCRIPT	Line 272 ENDSCRIPT
($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);	($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
$r->print('<form name="courselist">');	$r->print('<form name="courselist">');
my %by_descrip;	my %by_descrip;
my $numcourses = keys %courses;	my $numcourses = keys(%courses);
foreach my $course (keys %courses) {	foreach my $course (keys(%courses)) {
my $descr;	my $descr;
if ($courses{$course} =~ m/^([^:]*):/) {	if ($courses{$course} =~ m/^([^:]*):/) {
$descr = &Apache::lonnet::unescape($1);	$descr = &Apache::lonnet::unescape($1);