version 1.30, 2009/12/02 18:33:20
|
version 1.31, 2010/01/27 23:26:09
|
Line 110 ENDSCRIPT
|
Line 110 ENDSCRIPT
|
|
|
sub foil { |
sub foil { |
my $number=shift; |
my $number=shift; |
my %values=''; |
my (%values,%defaultvalues,%customvalues); |
|
%defaultvalues = &Apache::lonlocal::texthash( |
|
'unused' => 'Not shown, not used' |
|
); |
if ($qtype eq 'radio') { |
if ($qtype eq 'radio') { |
%values=('true' => 'True', 'false' => 'False'); |
%customvalues = &Apache::lonlocal::texthash( |
|
'true' => 'True', |
|
'false' => 'False' |
|
); |
} elsif ($qtype eq 'option') { |
} 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}; |
my $value=$qparms{$prefix.'value'.$number}; |
unless (defined($value)) { $value='unused'; } |
unless (defined($value)) { $value='unused'; } |
unless ($values{$value}) { $value='unused'; } |
unless ($values{$value}) { $value='unused'; } |
Line 131 sub foil {
|
Line 137 sub foil {
|
my $selectvalue=&Apache::loncommon::select_form( |
my $selectvalue=&Apache::loncommon::select_form( |
$value, |
$value, |
'value'.$number, |
'value'.$number, |
&Apache::lonlocal::texthash(%values)); |
%values); |
my $selectposition=&Apache::loncommon::select_form( |
my $selectposition=&Apache::loncommon::select_form( |
$position, |
$position, |
'position'.$number, |
'position'.$number, |