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); |