--- loncom/homework/rankresponse.pm 2011/09/13 21:42:58 1.66
+++ loncom/homework/rankresponse.pm 2012/10/12 12:45:46 1.68
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# rank style response
#
-# $Id: rankresponse.pm,v 1.66 2011/09/13 21:42:58 raeburn Exp $
+# $Id: rankresponse.pm,v 1.68 2012/10/12 12:45:46 raeburn Exp $
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -186,8 +186,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;
@@ -593,9 +596,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.''));
}