--- loncom/homework/lonsimpleproblemedit.pm 2010/01/27 20:38:08 1.20.2.2
+++ loncom/homework/lonsimpleproblemedit.pm 2010/01/27 23:32:05 1.20.2.3
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Problem Parameter Setting "Editor"
#
-# $Id: lonsimpleproblemedit.pm,v 1.20.2.2 2010/01/27 20:38:08 raeburn Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.20.2.3 2010/01/27 23:32:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -110,13 +110,19 @@ ENDSCRIPT
sub foil {
my $number=shift;
- my %values='';
+ my (%values,%defaultvalues,%customvalues);
+ %defaultvalues = &Apache::lonlocal::texthash(
+ 'unused' => 'Not shown, not used'
+ );
if ($qtype eq 'radio') {
- %values=('true' => 'True', 'false' => 'False');
+ %customvalues = &Apache::lonlocal::texthash(
+ 'true' => 'True',
+ 'false' => 'False'
+ );
} elsif ($qtype eq 'option') {
- %values=&evaloptionhash($qparms{$prefix.'options'});
+ %customvalues=&evaloptionhash($qparms{$prefix.'options'});
}
- $values{'unused'}='Not shown, not used';
+ %values = (%defaultvalues,%customvalues);
my $value=$qparms{$prefix.'value'.$number};
unless (defined($value)) { $value='unused'; }
unless ($values{$value}) { $value='unused'; }
@@ -128,10 +134,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',
@@ -262,19 +272,21 @@ sub handler {
&rawrendering($symb).
'
');
$r->print('