version 1.23, 2004/12/28 05:55:11
|
version 1.25, 2005/01/28 19:26:54
|
Line 225 ENDSCRIPT
|
Line 225 ENDSCRIPT
|
} else { |
} else { |
$descr = &Apache::lonnet::unescape($courses{$course}); |
$descr = &Apache::lonnet::unescape($courses{$course}); |
} |
} |
$by_descrip{lc($descr)}=$course; |
my $description = lc($descr); |
|
push (@{$by_descrip{$description}}, $course); |
} |
} |
foreach my $description (sort(keys(%by_descrip))) { |
foreach my $description (sort(keys(%by_descrip))) { |
my $course=$by_descrip{$description}; |
foreach my $course (@{$by_descrip{$description}}) { |
my $cleandesc=&HTML::Entities::encode($description,'<>&"'); |
my $cleandesc=&HTML::Entities::encode($description,'<>&"'); |
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
my ($descr,$instcode,$owner) = split/:/,$courses{$course}; |
"'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('. |
$r->print('<input type="button" value="Select" onClick="gochoose('. |
($Apache::lonnet::domaindescription{$cdom}? |
"'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('. |
$Apache::lonnet::domaindescription{$cdom}:$cdom). |
($Apache::lonnet::domaindescription{$cdom}? |
")<br />\n"); |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
|
unless ($instcode eq '') { |
|
$r->print(" - ".&Apache::lonnet::unescape($instcode)); |
|
} |
|
unless ($owner eq '') { |
|
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
|
} |
|
$r->print("<br />\n"); |
|
} |
} |
} |
if (!%courses) { $r->print(&mt('None found')); } |
if (!%courses) { $r->print(&mt('None found')); } |
$r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n". |
$r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n". |