version 1.30, 2005/10/03 23:53:25
|
version 1.32, 2005/10/14 18:23:32
|
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); |
Line 305 ENDSCRIPT
|
Line 305 ENDSCRIPT
|
unless ($owner eq '') { |
unless ($owner eq '') { |
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
} |
} |
|
if ($multflag) { $r->print("</label>\n"); } |
$r->print("<br />\n"); |
$r->print("<br />\n"); |
} |
} |
} |
} |
Line 327 sub course_chooser {
|
Line 328 sub course_chooser {
|
my ($multflag,$cdom,$cnum,$cleandesc) = @_; |
my ($multflag,$cdom,$cnum,$cleandesc) = @_; |
my $output; |
my $output; |
if ($multflag) { |
if ($multflag) { |
$output = '<input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
} else { |
} else { |
$output = '<input type="button" value="Select" onClick="gochoose('. |
$output = '<input type="button" value="Select" onClick="gochoose('. |
"'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n"; |
"'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n"; |