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"); |