--- loncom/homework/default_homework.lcpm	2004/02/18 22:49:32	1.69
+++ loncom/homework/default_homework.lcpm	2004/03/12 16:55:35	1.70
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.69 2004/02/18 22:49:32 albertel Exp $
+# $Id: default_homework.lcpm,v 1.70 2004/03/12 16:55:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,7 @@ sub caparesponse_check {
   #not to be used: $ans_fmt
   my ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples) =
     eval $_[2].
-      ';return ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples);';
+      ';return ($__LC__type,$__LC__tol,$__LC__sig,$__LC__ans_fmt,$__LC__unit,$__LC__calc,$__LC__samples);';
 
   my $tol_type=''; # gets it's value from whether tol has a % or not done
   my $sig_lbound=''; #done
@@ -165,7 +165,8 @@ sub caparesponse_check_list {
   my $answers=join(':',@list);
   $result.="Got response :$answers:\n";
   my @responselist;
-  my $type =eval $expr.';return $type;';
+  my $type =eval $expr.';return $__LC__type;';
+  $result.="Got type :$type:\n";
   if ($type ne '' && $#list > 0) {
     (@responselist)=split /,/,$response;
   } else {