version 1.24, 2009/08/17 18:18:35
|
version 1.28, 2009/10/16 17:23:51
|
Line 141 sub foil {
|
Line 141 sub foil {
|
my $spell_link= |
my $spell_link= |
&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); |
&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); |
return (<<ENDFOIL); |
return (<<ENDFOIL); |
<table bgcolor="#dd55ff" cellspacing="4" cellpadding="2"> |
<table bgcolor="#E8D8EE" cellspacing="2" cellpadding="1"> |
<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr> |
<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr> |
<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr> |
<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr> |
<tr><td colspan="2">$lt{'text'}:<br /> |
<tr><td colspan="2">$lt{'text'}:<br /> |
<textarea style="width:100%" name="text$number" cols="80" rows="4">$text</textarea> |
<textarea style="width:99%" name="text$number" cols="80" rows="4">$text</textarea> |
<br />$spell_link |
<br />$spell_link |
</td></tr> |
</td></tr> |
</table> |
</table> |
Line 191 sub handler {
|
Line 191 sub handler {
|
|
|
# ------------------------------------------------ Prefix for everything stored |
# ------------------------------------------------ Prefix for everything stored |
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; |
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; |
|
#------------------------------------------------- Prefix for storing weight of Problem Parts |
|
my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; |
|
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
|
|
if (($symb) && (defined($env{'form.questiontype'}))) { |
if (($symb) && (defined($env{'form.questiontype'}))) { |
Line 216 sub handler {
|
Line 219 sub handler {
|
$storecontent{$prefix.$parm}=~s/\s+$//s; |
$storecontent{$prefix.$parm}=~s/\s+$//s; |
} |
} |
} |
} |
|
# ---------------------------------------------------- Set weights of hidden parts to zero |
|
# ------------------------------------------------------ and used part to 1 |
|
$storecontent{$weightprefix.'essay.weight'}=0; |
|
$storecontent{$weightprefix.'numerical.weight'}=0; |
|
$storecontent{$weightprefix.'option.weight'}=0; |
|
$storecontent{$weightprefix.'radio.weight'}=0; |
|
$storecontent{$weightprefix.'string.weight'}=0; |
|
$storecontent{$weightprefix.$env{'form.questiontype'}.'.weight'}=1; |
|
|
|
|
my $reply=&Apache::lonnet::cput |
my $reply=&Apache::lonnet::cput |
('resourcedata',\%storecontent, |
('resourcedata',\%storecontent, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
|
|
&Apache::lonnet::devalidatecourseresdata( |
|
$env{'course.'.$env{'request.course.id'}.'.num'}, |
|
$env{'course.'.$env{'request.course.id'}.'.domain'}); |
|
|
} |
} |
# ------------------------------------------------------------------- Read Data |
# ------------------------------------------------------------------- Read Data |
|
|
Line 301 sub handler {
|
Line 318 sub handler {
|
': <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',%randomizes). |
'</td></tr><tr><td bgcolor="#AAAAAA">'); |
'</td></tr><tr><td bgcolor="#F0F0F0">'); |
# Option Response: Options |
# Option Response: Options |
if ($qtype eq 'option') { |
if ($qtype eq 'option') { |
my $options=$qparms{$prefix.'options'}; |
my $options=$qparms{$prefix.'options'}; |
Line 342 sub handler {
|
Line 359 sub handler {
|
unless ($stringtypes{$stringtype}) { $stringtype='cs'; } |
unless ($stringtypes{$stringtype}) { $stringtype='cs'; } |
$r->print( |
$r->print( |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /> '. |
'<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',%stringtypes). |
'</td></tr></table><br />'); |
'</td></tr></table><br />'); |
Line 352 sub handler {
|
Line 369 sub handler {
|
if ($qtype eq 'numerical') { |
if ($qtype eq 'numerical') { |
my $numericalanswer=$qparms{$prefix.'numericalanswer'}; |
my $numericalanswer=$qparms{$prefix.'numericalanswer'}; |
unless (defined($numericalanswer)) { $numericalanswer=''; } |
unless (defined($numericalanswer)) { $numericalanswer=''; } |
|
my $numericaltolerance=$qparms{$prefix.'numericaltolerance'}; |
|
unless (defined($numericaltolerance)) { $numericaltolerance='5%'; } |
|
my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'}; |
|
unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; } |
|
|
$r->print( |
$r->print( |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" />'. |
'<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" /></label> '. |
|
'<label>'.&mt('Unit').': <input type="text" size="5" name="numericalunit" value="'.$qparms{$prefix.'numericalunit'}.'" /></label> '. |
|
'<label>'.&mt('Format').': <input type="text" size="5" name="numericalformat" value="'.$qparms{$prefix.'numericalformat'}.'" /></label> '. |
|
'<label>'.&mt('Tolerance').': <input type="text" size="5" name="numericaltolerance" value="'.$numericaltolerance.'" /></label> '. |
|
'<label>'.&mt('Significant digits').': <input type="text" size="5" name="numericalsigfigs" value="'.$numericalsigfigs.'" /></label>'. |
'</td></tr></table><br />'); |
'</td></tr></table><br />'); |
$r->print(&hint()); |
$r->print(&hint()); |
} |
} |