loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2004/05/07 21:51:30	version 1.17, 2004/06/29 14:56:32
Line 131 ENDSCRIPT	Line 131 ENDSCRIPT
$r->print('<form>');	$r->print('<form>');
my %by_descrip;	my %by_descrip;
foreach my $course (keys %courses) {	foreach my $course (keys %courses) {
$by_descrip{lc($courses{$course})}=$course;	my $descr;
	if ($courses{$course} =~ m/^([^:]*):/) {
	$descr = &Apache::lonnet::unescape($1);
	} else {
	$descr = &Apache::lonnet::unescape($courses{$course});
	}
	$by_descrip{lc($descr)}=$course;
}	}
foreach my $description (sort(keys(%by_descrip))) {	foreach my $description (sort(keys(%by_descrip))) {
my $course=$by_descrip{$description};	my $course=$by_descrip{$description};
my $cleandesc=&HTML::Entities::encode($courses{$course},'<>&"');	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('.	$r->print('<input type="button" value="Select" onClick="gochoose('.
"'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$courses{$course}.' ('.	"'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.
($Apache::lonnet::domaindescription{$cdom}?	($Apache::lonnet::domaindescription{$cdom}?
$Apache::lonnet::domaindescription{$cdom}:$cdom).	$Apache::lonnet::domaindescription{$cdom}:$cdom).
")<br />\n");	")<br />\n");