version 1.96, 2004/10/21 03:34:06
|
version 1.98, 2005/01/10 19:21:57
|
Line 312 sub whichfoils {
|
Line 312 sub whichfoils {
|
&Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>",'<>&"')); |
&Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>",'<>&"')); |
} |
} |
} |
} |
|
if (!$havetrue && $Apache::lonhomework::type ne 'survey') { |
|
&Apache::lonxml::error("There are no true statements available.<br />"); |
|
} |
} else { |
} else { |
my $current=0; |
my $current=0; |
&Apache::lonhomework::showhash(%Apache::response::foilgroup); |
&Apache::lonhomework::showhash(%Apache::response::foilgroup); |
Line 603 sub end_foil {
|
Line 606 sub end_foil {
|
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
if ($value ne 'unused') { |
if ($value ne 'unused') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
if (!$name) { $name=$Apache::lonxml::curdepth; } |
if (!$name) { |
|
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
|
$name=$Apache::lonxml::curdepth; |
|
} |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
} |
} |