loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60.2.2, 2006/12/11 22:22:06	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));
}	}
Line 356 $multelement	Line 356 $multelement
if ($domainselectform) {	if ($domainselectform) {
$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n";	$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n";
}	}
# if ($typeselectform) {	if ($typeselectform) {
# $output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n";	$output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n";
# }	}
if ($instcodeform) {	if ($instcodeform) {
$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n";	$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n";
}	}