--- loncom/homework/response.pm	2003/05/13 15:27:01	1.75
+++ loncom/homework/response.pm	2003/05/13 15:44:39	1.76
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.75 2003/05/13 15:27:01 sakharuk Exp $
+# $Id: response.pm,v 1.76 2003/05/13 15:44:39 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -363,7 +363,7 @@ sub setup_params {
 sub answer_header {
     my ($type) = @_;
     my $result;
-    if ($ENV{'form.print_answer'} eq 'yes') {
+    if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) {
 	$result = ' \vskip 0 mm \begin{tabular}{|c|}\hline Answer for Part: '.
                   $Apache::inputtags::part.' \\\\ \hline ';
     } else {
@@ -381,7 +381,7 @@ sub answer_header {
 sub answer_part {
     my ($type,$answer) = @_;
     my $result;
-    if ($ENV{'form.print_answer'} eq 'yes') {
+    if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) {
 	$result = ' '.$answer.'\\\\ \hline ';
     } else {
 	if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {
@@ -396,7 +396,7 @@ sub answer_part {
 sub answer_footer {
     my ($type) = @_;
     my $result;
-    if ($ENV{'form.print_answer'} eq 'yes') {
+    if (($ENV{'form.print_answer'} eq 'yes') && ($ENV{'form.grade_target'} eq 'answer')) {
 	$result = ' \end{tabular} \vskip 0 mm ';
     } else {
 	if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {