loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.19, 2003/09/23 15:38:26	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);