loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67.2.3, 2008/01/20 22:47:37	version 1.68, 2007/12/30 23:22:41
Line 239 sub display_matched_courses {	Line 239 sub display_matched_courses {
}	}
}	}
my %by_descrip;	my %by_descrip;
	my $numcourses = keys(%courses);
foreach my $course (keys(%courses)) {	foreach my $course (keys(%courses)) {
my $descr;	my $descr;
if (ref($courses{$course}) eq 'HASH') {	if (ref($courses{$course}) eq 'HASH') {
Line 452 $multelement	Line 453 $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";
}	}
Line 474 $multelement	Line 475 $multelement
'<input type="text" name="descriptfilter" size="40" value="'.	'<input type="text" name="descriptfilter" size="40" value="'.
$list->{'descriptfilter'}.'" />'."\n";	$list->{'descriptfilter'}.'" />'."\n";
}	}
$output .= '<p><input type="submit" name="gosearch" value="'.	$output .= qq\|
&mt('Search').'" /></p>'."\n".'</form>'."\n".'<hr />'."\n";	<p><input type="submit" name="gosearch" value="Search" /></p>
	</form>
	<hr />
	\|;
return $output;	return $output;
}	}