--- loncom/homework/rankresponse.pm 2003/07/21 19:42:17 1.17
+++ loncom/homework/rankresponse.pm 2003/09/23 15:38:26 1.19
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# rank style response
#
-# $Id: rankresponse.pm,v 1.17 2003/07/21 19:42:17 albertel Exp $
+# $Id: rankresponse.pm,v 1.19 2003/09/23 15:38:26 sakharuk Exp $
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -241,11 +241,12 @@ sub displayfoils {
my $status=$Apache::inputtags::status[-1];
my @whichopt=(1..($#whichfoils+1));
my @correctorder=&get_correct_order($tol,@whichfoils);
- if (($solved =~ /^correct/) || ($status eq 'SHOW_ANSWER')) {
+ if ( &Apache::response::show_answer() ) {
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;