loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2004/03/19 03:47:09	version 1.14, 2004/03/31 05:24:00
Line 136 ENDSCRIPT	Line 136 ENDSCRIPT
}	}
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($courses{$course},'<>&"');
$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('.