loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.20.2.2 and 1.20.2.3

version 1.20.2.2, 2010/01/27 20:38:08	version 1.20.2.3, 2010/01/27 23:32:05
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 128 sub foil {	Line 134 sub foil {
unless ($positions{$position}) {	unless ($positions{$position}) {
$position='random';	$position='random';
}	}
my $selectvalue=&Apache::loncommon::select_form	my $selectvalue=&Apache::loncommon::select_form(
($value,'value'.$number,%values);	$value,
my $selectposition=&Apache::loncommon::select_form	'value'.$number,
($position,'position'.$number,%positions);	&Apache::lonlocal::texthash(%values));
	my $selectposition=&Apache::loncommon::select_form(
	$position,
	'position'.$number,
	&Apache::lonlocal::texthash(%positions));
my $text=$qparms{$prefix.'text'.$number};	my $text=$qparms{$prefix.'text'.$number};
my %lt=&Apache::lonlocal::texthash('foil' => 'Foil',	my %lt=&Apache::lonlocal::texthash('foil' => 'Foil',
'value' => 'Value',	'value' => 'Value',
Line 262 sub handler {	Line 272 sub handler {
&rawrendering($symb).	&rawrendering($symb).
'</td></tr></table><br />');	'</td></tr></table><br />');
$r->print('<form name="simpleedit" method="post">');	$r->print('<form name="simpleedit" method="post">');
# Question Type	# Question Type
my %questiontypes=('radio' =>	my %questiontypes=(
'1 out of N multiple choice (radio button)',	'radio' => '1 out of N multiple choice (radio button)',
'option' => 'Option response',	'option' => 'Option Response',
'string' => 'Short string response',	'string' => 'Short string response',
'essay' => 'Essay, open end',	'essay' => 'Essay, open end',
'numerical' => 'Numerical response');	'numerical' => 'Numerical Response');

$qtype=$qparms{$prefix.'questiontype'};	$qtype=$qparms{$prefix.'questiontype'};
unless (defined($qtype)) { $qtype='radio'; }	unless (defined($qtype)) { $qtype='radio'; }
unless ($questiontypes{$qtype}) { $qtype='radio'; }	unless ($questiontypes{$qtype}) { $qtype='radio'; }
$r->print('<b>'.&mt('Question Type').	$r->print('<b>'.&mt('Question Type').': '
': '.&Apache::loncommon::select_form	.&Apache::loncommon::select_form(
	$qtype,
	'questiontype',
	&Apache::lonlocal::texthash(%questiontypes))
($qtype,'questiontype',%questiontypes).	($qtype,'questiontype',%questiontypes).
'</b><br /><input type="submit" value="'.&mt('Save and Edit').	'</b><br /><input type="submit" value="'.&mt('Save and Edit').
'" /><p> </p>');	'" /><p> </p>');
Line 291 sub handler {	Line 303 sub handler {
unless (defined($maxfoils)) { $maxfoils=10; }	unless (defined($maxfoils)) { $maxfoils=10; }
unless ($maxfoils=~/^\d+$/) { $maxfoils=10; }	unless ($maxfoils=~/^\d+$/) { $maxfoils=10; }
if ($maxfoils<=0) { $maxfoils=10; }	if ($maxfoils<=0) { $maxfoils=10; }
my %randomizes=('yes' => 'Display foils in random order',	my %randomizes=(
'no' => 'Display foils in order given');	'yes' => 'Display foils in random order',
	'no' => 'Display foils in order given');
my $randomize=$qparms{$prefix.'randomize'};	my $randomize=$qparms{$prefix.'randomize'};
unless (defined($randomize)) { $randomize='yes'; }	unless (defined($randomize)) { $randomize='yes'; }
unless ($randomizes{$randomize}) { $randomize='yes'; }	unless ($randomizes{$randomize}) { $randomize='yes'; }
Line 300 sub handler {	Line 313 sub handler {
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
'<tr><td>'.&mt('Max number of foils displayed').	'<tr><td>'.&mt('Max number of foils displayed').
': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.	': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form(
($randomize,'randomize',%randomizes).	$randomize,
	'randomize',
	&Apache::lonlocal::texthash(%randomizes)).
'</td></tr><tr><td bgcolor="#AAAAAA">');	'</td></tr><tr><td bgcolor="#AAAAAA">');
# Option Response: Options	# Option Response: Options
if ($qtype eq 'option') {	if ($qtype eq 'option') {
Line 344 sub handler {	Line 359 sub handler {
$r->print(	$r->print(
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
'<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /></label>  '.	'<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /></label>  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form(
($stringtype,'stringtype',%stringtypes).	$stringtype,
	'stringtype',
	&Apache::lonlocal::texthash(%stringtypes)).
'</td></tr></table><br />');	'</td></tr></table><br />');
# Hint	# Hint
$r->print(&hint());	$r->print(&hint());

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20.2.2
changed lines
	Added in v.1.20.2.3