loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.64, 2002/11/14 17:26:58	version 1.65, 2002/12/02 17:06:08
Line 319 sub displayfoils {	Line 319 sub displayfoils {
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $break;	my $break;
if (($Apache::lonhomework::history{"resource.$part.solved"} =~ /^correct/) \|\| ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER')) {	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
my $temp=1; ####	my $status=$Apache::inputtags::status[-1];
	if (
	($target ne 'tex') &&
	(($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) ) {
foreach $name (@whichopt) {	foreach $name (@whichopt) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
if ($text!~/^\s*$/) {	if ($text!~/^\s*$/) {
Line 353 sub displayfoils {	Line 356 sub displayfoils {
$result.=&bubbles(\@alphabet,\@opt);	$result.=&bubbles(\@alphabet,\@opt);
}	}
}	}
$temp++;
}	}
} else {	} else {
my $temp=1;	my $temp=1;