version 1.31, 2010/01/27 23:26:09
|
version 1.32, 2010/06/06 02:40:35
|
Line 137 sub foil {
|
Line 137 sub foil {
|
my $selectvalue=&Apache::loncommon::select_form( |
my $selectvalue=&Apache::loncommon::select_form( |
$value, |
$value, |
'value'.$number, |
'value'.$number, |
%values); |
\%values); |
my $selectposition=&Apache::loncommon::select_form( |
my $selectposition=&Apache::loncommon::select_form( |
$position, |
$position, |
'position'.$number, |
'position'.$number, |
&Apache::lonlocal::texthash(%positions)); |
{&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 309 sub handler {
|
Line 309 sub handler {
|
.&Apache::loncommon::select_form( |
.&Apache::loncommon::select_form( |
$qtype, |
$qtype, |
'questiontype', |
'questiontype', |
&Apache::lonlocal::texthash(%questiontypes)) |
{&Apache::lonlocal::texthash(%questiontypes)}) |
.'</fieldset>' |
.'</fieldset>' |
); |
); |
$r->print( |
$r->print( |
Line 343 sub handler {
|
Line 343 sub handler {
|
&Apache::loncommon::select_form( |
&Apache::loncommon::select_form( |
$randomize, |
$randomize, |
'randomize', |
'randomize', |
&Apache::lonlocal::texthash(%randomizes)). |
{&Apache::lonlocal::texthash(%randomizes)}). |
'</td></tr><tr><td bgcolor="#F0F0F0">'); |
'</td></tr><tr><td bgcolor="#F0F0F0">'); |
# Option Response: Options |
# Option Response: Options |
if ($qtype eq 'option') { |
if ($qtype eq 'option') { |
Line 356 sub handler {
|
Line 356 sub handler {
|
$options.'" />'.&mt('Add new option').': '. |
$options.'" />'.&mt('Add new option').': '. |
'<input type="text" name="newopt" size="15" />'. |
'<input type="text" name="newopt" size="15" />'. |
&mt('Delete an option').': '. |
&mt('Delete an option').': '. |
&Apache::loncommon::select_form('','delopt',('' => '',%optionshash)). |
&Apache::loncommon::select_form('','delopt',{'' => '',%optionshash}). |
'</td></tr><tr><td>'); |
'</td></tr><tr><td>'); |
} |
} |
# Foils |
# Foils |
Line 389 sub handler {
|
Line 389 sub handler {
|
&Apache::loncommon::select_form( |
&Apache::loncommon::select_form( |
$stringtype, |
$stringtype, |
'stringtype', |
'stringtype', |
&Apache::lonlocal::texthash(%stringtypes)). |
{&Apache::lonlocal::texthash(%stringtypes)}). |
'</td></tr></table><br />'); |
'</td></tr></table><br />'); |
# Hint |
# Hint |
$r->print(&hint()); |
$r->print(&hint()); |