--- 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;