loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.67, 2011/09/16 22:23:54	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;