--- loncom/homework/caparesponse/caparesponse.pm	2001/03/21 18:25:14	1.29
+++ loncom/homework/caparesponse/caparesponse.pm	2001/06/02 03:59:59	1.31
@@ -10,13 +10,13 @@ sub BEGIN {
 }
 
 sub start_caparesponse {
-  my ($target,$token,$parstack,$parser,$safeeval)=@_;
+  my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $id = &Apache::response::start_response($parstack,$safeeval);
   return '';
 }
 
 sub end_caparesponse {
-  my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
+  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result = '';
   if ( $target eq 'grade' ) {
     if ( defined $ENV{'form.submitted'}) {
@@ -44,7 +44,7 @@ sub end_caparesponse {
 	}
       }
     }
-  } else {
+  } elsif ($target eq 'web') {
     #$result .= "The correct answer is ".&Apache::run::run("{$$parstack['-1'];".'return $answer}',$safeeval)."\n";
   }
   #Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");
@@ -53,13 +53,13 @@ sub end_caparesponse {
 }
 
 sub start_numericalresponse {
-  my ($target,$token,$parstack,$parser,$safeeval)=@_;
+  my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $id = &Apache::response::start_response($parstack,$safeeval);
   return '';
 }
 
 sub end_numericalresponse {
-  my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
+  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result = '';
   if ( $target eq 'grade' ) {
     if ( defined $ENV{'form.submitted'}) {