'
@@ -186,8 +187,11 @@ sub get_correct_order {
sub displayanswers {
my ($max,$randomize,$tol,@opt)=@_;
- if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }
- my @names = @{ $Apache::response::foilgroup{'names'} };
+ my @names;
+ if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') {
+ @names = @{ $Apache::response::foilgroup{'names'} };
+ }
+ return if (!@names);
my @whichfoils = &whichfoils($max,$randomize);
my @correctorder=&get_correct_order($tol,@whichfoils);
my $result;
@@ -332,8 +336,11 @@ sub format_prior_answer {
my %grading =&Apache::lonnet::str2hash($other_data->[1]);
my $output;
foreach my $name (@{ $foil_order }) {
- next if (!defined($lastresponse{$name}));
- $output .= '
'.$lastresponse{$name}.'
';
+ if (defined($lastresponse{$name})) {
+ $output .= '
';
if ($Apache::lonhomework::type ne 'exam') {
- $result.=' '.$optionlist.$text."\n";
+ $result.=$optionlist.$text."\n";
} else {
- $result.=' '.$text."\n";
+ $result.=$text."\n";
}
if ($Apache::lonhomework::type eq 'exam') {
my @values=(1..scalar(@whichopt));
$result.=&Apache::optionresponse::webbubbles(\@values,\@whichopt,$temp,$lastopt);
}
+ $result .= '
';
} else {
if ($Apache::lonhomework::type eq 'exam') {
my $itemlabel;
@@ -593,9 +611,6 @@ sub end_foil {
$name=$Apache::lonxml::curdepth;
}
&Apache::lonxml::debug("Using a name of :$name:");
- if ($name eq "0") {
- &Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.',''.$name.''));
- }
if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.',''.$name.''));
}