version 1.46, 2006/05/18 01:08:50
|
version 1.47, 2006/05/30 12:46:09
|
Line 35 use Apache::loncoursedata;
|
Line 35 use Apache::loncoursedata;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 286 ENDSCRIPT
|
Line 288 ENDSCRIPT
|
foreach my $course (keys(%courses)) { |
foreach my $course (keys(%courses)) { |
my $descr; |
my $descr; |
if ($courses{$course} =~ m/^([^:]*):/i) { |
if ($courses{$course} =~ m/^([^:]*):/i) { |
$descr = &Apache::lonnet::unescape($1); |
$descr = &unescape($1); |
} else { |
} else { |
$descr = &Apache::lonnet::unescape($courses{$course}); |
$descr = &unescape($courses{$course}); |
} |
} |
my $description = $descr; |
my $description = $descr; |
push (@{$by_descrip{$description}}, $course); |
push (@{$by_descrip{$description}}, $course); |
Line 311 ENDSCRIPT
|
Line 313 ENDSCRIPT
|
($Apache::lonnet::domaindescription{$cdom}? |
($Apache::lonnet::domaindescription{$cdom}? |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
unless ($instcode eq '') { |
unless ($instcode eq '') { |
$r->print(" - ".&Apache::lonnet::unescape($instcode)); |
$r->print(" - ".&unescape($instcode)); |
} |
} |
unless ($owner eq '') { |
unless ($owner eq '') { |
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
$r->print(", owner - ".&unescape($owner)); |
} |
} |
if ($multiple) { $r->print("</label>\n"); } |
if ($multiple) { $r->print("</label>\n"); } |
$r->print("<br />\n"); |
$r->print("<br />\n"); |