--- loncom/homework/rankresponse.pm 2003/07/21 19:42:17 1.17 +++ loncom/homework/rankresponse.pm 2003/09/23 01:52:57 1.17.2.1 @@ -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.17.2.1 2003/09/23 01:52:57 albertel Exp $ # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -241,7 +241,7 @@ 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);