version 1.187, 2012/10/12 12:45:46
|
version 1.188, 2012/11/30 11:45:50
|
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:"); |