loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2011/09/13 21:42:58	version 1.68, 2012/10/12 12:45:46
Line 186 sub get_correct_order {	Line 186 sub get_correct_order {

sub displayanswers {	sub displayanswers {
my ($max,$randomize,$tol,@opt)=@_;	my ($max,$randomize,$tol,@opt)=@_;
if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }	my @names;
my @names = @{ $Apache::response::foilgroup{'names'} };	if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') {
	@names = @{ $Apache::response::foilgroup{'names'} };
	}
	return if (!@names);
my @whichfoils = &whichfoils($max,$randomize);	my @whichfoils = &whichfoils($max,$randomize);
my @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
my $result;	my $result;
Line 593 sub end_foil {	Line 596 sub end_foil {
$name=$Apache::lonxml::curdepth;	$name=$Apache::lonxml::curdepth;
}	}
&Apache::lonxml::debug("Using a name of :$name:");	&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.','<b><tt>'.$name.'</tt></b>'));
}
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>'));
}	}