--- loncom/interface/lonhelper.pm 2005/01/16 08:20:38 1.93 +++ 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.93 2005/01/16 08:20:38 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 ''; } @@ -1281,7 +1281,7 @@ BUTTONS $choiceLabel = &$choiceLabel($helper, $self); } $result .= "/> ".qq{\n"; + $choiceLabel. "\n"; } $result .= "\n\n\n"; $result .= $buttons;