--- loncom/homework/rankresponse.pm 2003/10/15 19:49:06 1.17.2.2 +++ loncom/homework/rankresponse.pm 2003/10/24 18:00:42 1.23 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # rank style response # -# $Id: rankresponse.pm,v 1.17.2.2 2003/10/15 19:49:06 albertel Exp $ +# $Id: rankresponse.pm,v 1.23 2003/10/24 18:00:42 sakharuk Exp $ # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -104,7 +104,7 @@ sub end_foilgroup { } elsif ( $target eq 'grade') { &grade_response($max,$randomize,$tol); } - &Apache::lonxml::increment_counter(&getfoilcounts($max)); + if ($target ne 'answer') {&Apache::lonxml::increment_counter(&getfoilcounts($max));} } elsif ($target eq 'edit') { $result=&Apache::edit::end_table(); } @@ -238,14 +238,14 @@ sub displayfoils { my (@whichfoils)=&whichfoils($max,$randomize); my $part=$Apache::inputtags::part; my $solved=$Apache::lonhomework::history{"resource.$part.solved"}; - my $status=$Apache::inputtags::status[-1]; my @whichopt=(1..($#whichfoils+1)); my @correctorder=&get_correct_order($tol,@whichfoils); - if ( &Apache::response::show_answer() ) { + if ( &Apache::response::show_answer() && ($target ne 'tex')) { foreach my $name (@whichfoils) { my $text=$Apache::response::foilgroup{$name.'.text'}; my $value=shift(@correctorder); - $result.='
'.$value.':'.$text; + if ($target eq 'web') {$result.='
';} else {$result.=' \strut\\\\\strut ';} + $result.=$value.':'.$text; } } else { my $i = 0;