--- loncom/homework/default_homework.lcpm	2001/01/24 17:01:49	1.16
+++ loncom/homework/default_homework.lcpm	2001/02/19 20:31:53	1.17
@@ -71,7 +71,7 @@ sub caparesponse_check {
   elsif ($result =='12') { $result='WANTED_NUMERIC'; }
   else  {$result = "ERROR: Unknown Result:$result:$@:";}
 
-  return "$result:<br>Error $error:<br>Answer $answer:<br>Response $response:<br>$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br>";
+  return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br />$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br />";
 }
 
 sub caparesponse_check_list {
@@ -83,12 +83,12 @@ sub caparesponse_check_list {
   my (@list) = eval $answer;
   my (@responselist)=split /,/,$response;
   my $unit='';
-  $result.="Final response :$responselist['-1']:<br>";
+  $result.="Final response :$responselist['-1']:<br />";
   if ( $responselist['-1']=~ /(.*[^\s])\s+([^\s]+)/ ) {
     $responselist['-1']=$1;
     $unit=$2;
   }
-  $result.="Final response :$responselist['-1']:<br>";
+  $result.="Final response :$responselist['-1']:<br />";
   $unit=~s/\s//;
   my $i=0;
   my $awards='';
@@ -100,7 +100,7 @@ sub caparesponse_check_list {
     $result.=$aresult;
   }
   chop $awards;
-  return "$awards:<br>$result";
+  return "$awards:<br />$result";
 }
 
 sub tex {