version 1.26, 2009/09/24 00:50:03
|
version 1.28, 2009/10/16 17:23:51
|
Line 40 use LONCAPA;
|
Line 40 use LONCAPA;
|
|
|
my %qparms; |
my %qparms; |
my $prefix; |
my $prefix; |
my $weightprefix; |
|
my $qtype; |
my $qtype; |
|
|
sub evaloptionhash { |
sub evaloptionhash { |
Line 142 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 193 sub handler {
|
Line 192 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 |
#------------------------------------------------- Prefix for storing weight of Problem Parts |
$weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; |
my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; |
|
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
|
|
Line 319 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'}; |