version 1.187, 2012/10/12 12:45:46
|
version 1.189, 2012/12/18 16:30:23
|
Line 108 sub start_foilgroup {
|
Line 108 sub start_foilgroup {
|
my $optionlist="<option></option>\n"; |
my $optionlist="<option></option>\n"; |
my $option; |
my $option; |
my @opt; |
my @opt; |
eval '@opt ='. &Apache::lonxml::get_param('options',$parstack,$safeeval); |
my @raw_options = &Apache::lonxml::get_param('options', $parstack, $safeeval, 0, 0, 1); |
|
|
|
|
|
eval '@opt ='. &Apache::lonxml::get_param('options',$parstack,$safeeval, 0, 0, 1); |
|
|
my $count=1; |
my $count=1; |
foreach $option (@opt) { |
foreach $option (@opt) { |
$optionlist.="<option value=\"$count\">$option</option>\n"; |
$optionlist.="<option value=\"$count\">$option</option>\n"; |
Line 148 ENDTABLE
|
Line 152 ENDTABLE
|
if ($target eq 'modified') { |
if ($target eq 'modified') { |
my @options; |
my @options; |
my $optchanged=0; |
my $optchanged=0; |
eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval); |
|
|
|
|
eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval, 0, 0, 1); |
|
|
if ($env{"form.$Apache::lonxml::curdepth.deleteopt"}) { |
if ($env{"form.$Apache::lonxml::curdepth.deleteopt"}) { |
my $delopt=$env{"form.$Apache::lonxml::curdepth.deleteopt"}; |
my $delopt=$env{"form.$Apache::lonxml::curdepth.deleteopt"}; |
&Apache::lonxml::debug("Deleting :$delopt:"); |
&Apache::lonxml::debug("Deleting :$delopt:"); |
Line 492 sub check_for_invalid {
|
Line 499 sub check_for_invalid {
|
sub displayfoils { |
sub displayfoils { |
my ($target,$max,$randomize,$TeXlayout,$checkboxvalue,$checkboxchoices, |
my ($target,$max,$randomize,$TeXlayout,$checkboxvalue,$checkboxchoices, |
$tex_option_switch, $no_tfprompt, @opt)=@_; |
$tex_option_switch, $no_tfprompt, @opt)=@_; |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
my @names; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') { |
|
@names = @{ $Apache::response::foilgroup{'names'} }; |
|
} |
|
unless (@names > 0) { return;} |
my @truelist; |
my @truelist; |
my @falselist; |
my @falselist; |
my $result; |
my $result; |