--- loncom/homework/lonsimpleproblemedit.pm 2009/10/19 15:15:03 1.29 +++ loncom/homework/lonsimpleproblemedit.pm 2009/12/02 18:33:20 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.29 2009/10/19 15:15:03 bisitz Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.30 2009/12/02 18:33:20 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -128,10 +128,14 @@ sub foil { unless ($positions{$position}) { $position='random'; } - my $selectvalue=&Apache::loncommon::select_form - ($value,'value'.$number,%values); - my $selectposition=&Apache::loncommon::select_form - ($position,'position'.$number,%positions); + my $selectvalue=&Apache::loncommon::select_form( + $value, + 'value'.$number, + &Apache::lonlocal::texthash(%values)); + my $selectposition=&Apache::loncommon::select_form( + $position, + 'position'.$number, + &Apache::lonlocal::texthash(%positions)); my $text=$qparms{$prefix.'text'.$number}; my %lt=&Apache::lonlocal::texthash('foil' => 'Foil', 'value' => 'Value', @@ -284,20 +288,22 @@ sub handler { ); $r->print('