version 1.193, 2013/12/03 17:22:08
|
version 1.194, 2014/11/27 17:37:09
|
Line 146 ENDTABLE
|
Line 146 ENDTABLE
|
} |
} |
$result.='>'.$option.'</option>'; |
$result.='>'.$option.'</option>'; |
} |
} |
$result.='</select></label>'; |
$result.='</select></label> '; |
$result.=&Apache::edit::checked_arg('Checkbox options:','checkboxoptions', |
$result.=&Apache::edit::checked_arg('Checkbox options:','checkboxoptions', |
[ ['nochoice',"Don't show option list"] ] |
[ ['nochoice',"Don't show option list"] ] |
|
,$token).' '. |
|
&Apache::edit::checked_arg('','noprompt', |
|
[ ['nochoice','Omit "Select all that are ... "' ] ] |
,$token).'</td>'; |
,$token).'</td>'; |
$result.= &Apache::edit::end_row(); |
$result.= &Apache::edit::end_row(); |
$result.= &Apache::edit::start_spanning_row(); |
$result.= &Apache::edit::start_spanning_row(); |
Line 173 ENDTABLE
|
Line 176 ENDTABLE
|
$optchanged=1; |
$optchanged=1; |
} |
} |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
'texoptions','checkboxvalue','checkboxoptions'); |
'texoptions','checkboxvalue','checkboxoptions', |
|
'noprompt'); |
if ($optchanged || $rebuildtag ) { |
if ($optchanged || $rebuildtag ) { |
$result = "<foilgroup options=\"("; |
$result = "<foilgroup options=\"("; |
foreach my $option (@options) { |
foreach my $option (@options) { |
Line 185 ENDTABLE
|
Line 189 ENDTABLE
|
$result.=')" '; |
$result.=')" '; |
$result .= 'texoptions="'.$token->[2]{'texoptions'}.'" '; |
$result .= 'texoptions="'.$token->[2]{'texoptions'}.'" '; |
$result .= 'checkboxoptions="'.$token->[2]{'checkboxoptions'}.'" '; |
$result .= 'checkboxoptions="'.$token->[2]{'checkboxoptions'}.'" '; |
$result .= 'checkboxvalue="'.$token->[2]{'checkboxvalue'}.'"'; |
$result .= 'checkboxvalue="'.$token->[2]{'checkboxvalue'}.'" '; |
|
$result .= 'noprompt="'.$token->[2]{'noprompt'}.'"'; |
$result .= '>'; |
$result .= '>'; |
} # else nothing changed so just use the default mechanism |
} # else nothing changed so just use the default mechanism |
} |
} |
Line 215 sub end_foilgroup {
|
Line 220 sub end_foilgroup {
|
-2,0); |
-2,0); |
my $checkboxvalue=&Apache::lonxml::get_param('checkboxvalue',$parstack,$safeeval); |
my $checkboxvalue=&Apache::lonxml::get_param('checkboxvalue',$parstack,$safeeval); |
my $checkboxchoices=(&Apache::lonxml::get_param('checkboxoptions',$parstack,$safeeval) ne 'nochoice'); |
my $checkboxchoices=(&Apache::lonxml::get_param('checkboxoptions',$parstack,$safeeval) ne 'nochoice'); |
my $noprompt =&Apache::lonxml::get_param('noprompt', $parstack, $safeeval); |
my $noprompt=&Apache::lonxml::get_param('noprompt', $parstack, $safeeval); |
|
|
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
&Apache::lonxml::debug("Options are $#opt"); |
&Apache::lonxml::debug("Options are $#opt"); |