--- loncom/interface/lonhelper.pm 2004/10/07 22:12:47 1.88
+++ loncom/interface/lonhelper.pm 2005/01/20 20:20:35 1.94
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.88 2004/10/07 22:12:47 albertel Exp $
+# $Id: lonhelper.pm,v 1.94 2005/01/20 20:20:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1165,7 +1165,7 @@ sub start_choice {
$parser));
my $nextstate = $token->[2]{'nextstate'};
my $evalFlag = $token->[2]{'eval'};
- push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate,
+ push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate,
$evalFlag];
return '';
}
@@ -1267,7 +1267,7 @@ BUTTONS
$result .= "
\n | \n";
$result .= "&"')
+ HTML::Entities::encode($choice->[1],"<>&\"'")
. "'";
if ($checkedChoices{$choice->[1]}) {
$result .= " checked ";
@@ -1281,7 +1281,7 @@ BUTTONS
$choiceLabel = &$choiceLabel($helper, $self);
}
$result .= "/> | ".qq{ |
\n";
+ $choiceLabel. "\n";
}
$result .= "\n\n\n";
$result .= $buttons;
@@ -1424,7 +1424,7 @@ sub render {
$result .= "