loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.18, 2003/09/22 20:49:01	version 1.21, 2003/10/13 19:25:30
Line 238 sub displayfoils {	Line 238 sub displayfoils {
my (@whichfoils)=&whichfoils($max,$randomize);	my (@whichfoils)=&whichfoils($max,$randomize);
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $solved=$Apache::lonhomework::history{"resource.$part.solved"};	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
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 ( &Apache::response::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;