loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.17, 2003/07/21 19:42:17	version 1.20, 2003/09/24 17:57:42
Line 241 sub displayfoils {	Line 241 sub displayfoils {
my $status=$Apache::inputtags::status[-1];	my $status=$Apache::inputtags::status[-1];
my @whichopt=(1..($#whichfoils+1));	my @whichopt=(1..($#whichfoils+1));
my @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
if (($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) {	if ( &Apache::response::show_answer() && ($target ne 'tex')) {
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
my $value=shift(@correctorder);	my $value=shift(@correctorder);
$result.='<br />'.$value.':'.$text;	if ($target eq 'web') {$result.='<br />';} else {$result.=' \strut\\\\\strut ';}
	$result.=$value.':'.$text;
}	}
} else {	} else {
my $i = 0;	my $i = 0;