loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.186, 2012/06/25 10:36:00	version 1.187, 2012/10/12 12:45:46
Line 427 sub whichfoils {	Line 427 sub whichfoils {

sub displayanswers {	sub displayanswers {
my ($max,$randomize,@opt)=@_;	my ($max,$randomize,@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 @whichopt = &whichfoils($max,$randomize);	my @whichopt = &whichfoils($max,$randomize);
my $result;	my $result;
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {