version 1.177, 2011/09/13 21:42:58
|
version 1.179, 2011/09/16 22:23:54
|
Line 279 sub end_foilgroup {
|
Line 279 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 914 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>')); |