--- loncom/homework/inputtags.pm	2002/11/06 22:40:29	1.72
+++ loncom/homework/inputtags.pm	2002/11/08 20:34:10	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.72 2002/11/06 22:40:29 albertel Exp $
+# $Id: inputtags.pm,v 1.73 2002/11/08 20:34:10 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -153,8 +153,10 @@ sub start_textline {
       my $partid=$Apache::inputtags::part;
       my $id=$Apache::inputtags::response[-1];
       my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"});
-      $result= '<input type="text" name="HWVAL'.$id.'" value="'.
-	$oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';
+      if ($Apache::lonhomework::type ne 'exam') {
+        $result= '<input type="text" name="HWVAL'.$id.'" value="'.
+	    $oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';
+      }
     } else {
       #right or wrong don't show what was last typed in.
       #$result='<i>'.$oldresponse.'</i>';