--- loncom/homework/default_homework.lcpm	2001/02/20 23:46:25	1.18
+++ loncom/homework/default_homework.lcpm	2001/05/08 14:57:12	1.19
@@ -11,11 +11,11 @@ sub caparesponse_check {
   my $type='';    #done
   my $tol_type=''; # gets it's value from whether tol has a % or not done
   my $tol='';     #done
-  my $sig='';
-  my $sig_lbound='';
-  my $sig_ubound='';
+  my $sig='';     #done lowerbnd,upperbnd
+  my $sig_lbound=''; #done
+  my $sig_ubound=''; #done
   my $ans_fmt='';
-  my $units='';
+  my $units='';     #done
   my $calc='';
   my ($response,$expr)=@_;
   
@@ -93,8 +93,13 @@ sub caparesponse_check_list {
   my $i=0;
   my $awards='';
   for ($i=0; $i<@list;$i++) {
-    $aresult=&caparesponse_check($responselist[$i]." $unit",
-				 $expr.';my $answer='.$list[$i].';');
+    if ($unit eq '') {
+      $aresult=&caparesponse_check($responselist[$i],
+			     $expr.';my $answer='.$list[$i].';');
+    } else {
+      $aresult=&caparesponse_check($responselist[$i]." $unit",
+				   $expr.';my $answer='.$list[$i].';');
+    }
     my ($temp)=split /:/, $aresult;
     $awards.="$temp,";
     $result.=$aresult;