--- loncom/homework/response.pm	2003/07/28 22:44:54	1.82
+++ loncom/homework/response.pm	2003/09/23 01:52:57	1.82.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.82 2003/07/28 22:44:54 albertel Exp $
+# $Id: response.pm,v 1.82.2.1 2003/09/23 01:52:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -512,6 +512,14 @@ sub whichorder {
     return @whichopt;
 }
 
+sub show_answer {
+    my $part   = $Apache::inputtags::part;
+    my $award  = $Apache::lonhomework::history{"resource.$part.solved"};
+    my $status = $Apache::inputtags::status[-1];
+    return  ( ($award =~ /^correct/
+	       && lc($Apache::lonhomework::problemstatus) ne 'no')
+	      || $status eq "SHOW_ANSWER");
+}
 1;
 __END__