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('. |