version 1.61, 2006/12/11 22:20:20
|
version 1.62, 2007/03/08 01:58:45
|
Line 198 sub display_matched_courses {
|
Line 198 sub display_matched_courses {
|
my ($descr,$instcode,$owner,$ttype) = split/:/,$courses{$course}; |
my ($descr,$instcode,$owner,$ttype) = split/:/,$courses{$course}; |
$r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc)); |
$r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc)); |
$r->print($description.'('. |
$r->print($description.'('. |
($Apache::lonnet::domaindescription{$cdom}? |
(&Apache::lonnet::domain($cdom,'description')? |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
&Apache::lonnet::domain($cdom,'description'):$cdom).")"); |
unless ($instcode eq '') { |
unless ($instcode eq '') { |
$r->print(" - ".&unescape($instcode)); |
$r->print(" - ".&unescape($instcode)); |
} |
} |