version 1.177, 2011/09/13 21:42:58
|
version 1.180, 2011/09/30 16:47:08
|
Line 155 ENDTABLE
|
Line 155 ENDTABLE
|
splice(@options,$delopt-1,1); |
splice(@options,$delopt-1,1); |
$optchanged=1; |
$optchanged=1; |
} |
} |
if ($env{"form.$Apache::lonxml::curdepth.options"}) { |
if ($env{"form.$Apache::lonxml::curdepth.options"} ne '') { |
my $newopt = $env{"form.$Apache::lonxml::curdepth.options"}; |
my $newopt = $env{"form.$Apache::lonxml::curdepth.options"}; |
if ($options[0]) { |
push(@options,$newopt); |
push(@options,$newopt); |
|
} else { |
|
$options[0]=$newopt; |
|
} |
|
$optchanged=1; |
$optchanged=1; |
} |
} |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
Line 279 sub end_foilgroup {
|
Line 275 sub end_foilgroup {
|
} |
} |
$temp += $numrows; |
$temp += $numrows; |
} else { |
} else { |
|
$response=&Apache::response::getresponse($temp); |
if ($response=~/\S/) { |
if ($response=~/\S/) { |
$response = $opt[$response]; |
$response = $opt[$response]; |
} |
} |
$temp ++; |
$temp ++; |
} |
} |
} else { |
} else { |
|
$response=&Apache::response::getresponse($temp); |
$temp ++; |
$temp ++; |
} |
} |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
Line 912 sub end_foil {
|
Line 910 sub end_foil {
|
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); |
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); |
$name=$Apache::lonxml::curdepth; |
$name=$Apache::lonxml::curdepth; |
} |
} |
if ($name eq "0") { |
|
&Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.','<b><tt>'.$name.'</tt></b>')); |
|
} |
|
&Apache::lonxml::debug("Using a name of :$name:"); |
&Apache::lonxml::debug("Using a name of :$name:"); |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique.",'<b><tt>'.$name.'</tt></b>')); |
&Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique.",'<b><tt>'.$name.'</tt></b>')); |