loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

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,