|
version 1.131, 2006/02/02 20:36:07
|
version 1.132, 2006/02/06 21:59:23
|
|
Line 114 sub start_foilgroup {
|
Line 114 sub start_foilgroup {
|
| <td>Delete an Option: |
<td>Delete an Option: |
| <select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select> |
<select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select> |
| ENDTABLE |
ENDTABLE |
| |
$result.= &Apache::edit::checked_arg('Print options:','texoptions', |
| |
[ ['nochoice','Don\'t show option list'] ] |
| |
,$token); |
| $result.= &Apache::edit::end_row(); |
$result.= &Apache::edit::end_row(); |
| $result.= &Apache::edit::start_spanning_row(); |
$result.= &Apache::edit::start_spanning_row(); |
| $result.= $insertlist.'<br />'; |
$result.= $insertlist.'<br />'; |
|
Line 137 ENDTABLE
|
Line 140 ENDTABLE
|
| } |
} |
| $optchanged=1; |
$optchanged=1; |
| } |
} |
| if ($optchanged) { |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
| |
('texoptions')); |
| |
if ($optchanged || $rebuildtag ) { |
| $result = "<foilgroup options=\"("; |
$result = "<foilgroup options=\"("; |
| foreach my $option (@options) { |
foreach my $option (@options) { |
| $option=~s/\'/\\\'/g; |
$option=~s/\'/\\\'/g; |
|
Line 145 ENDTABLE
|
Line 150 ENDTABLE
|
| $result .="'".$option."',"; |
$result .="'".$option."',"; |
| } |
} |
| chop $result; |
chop $result; |
| $result.=')">'; |
$result.=')" '; |
| |
$result .= 'texoptions="'.$token->[2]{'texoptions'}.'" '; |
| |
$result .= '>'; |
| } # else nothing changed so just use the default mechanism |
} # else nothing changed so just use the default mechanism |
| } |
} |
| if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') { |
if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework