--- loncom/homework/inputtags.pm	2001/08/18 07:56:51	1.44
+++ loncom/homework/inputtags.pm	2001/10/03 12:48:47	1.45
@@ -54,8 +54,12 @@ sub start_textarea {
     if ( $cols eq '') { $cols = 80; }
     my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
     if ( $rows eq '') { $rows = 10; }
-    $result= '<textarea name="HWVAL'.$Apache::inputtags::response['-1'].'" '.
-      "rows=\"$rows\" cols=\"$cols\">".$oldresponse;
+    if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
+      $result= '<textarea name="HWVAL'.$Apache::inputtags::response['-1'].'" '.
+	"rows=\"$rows\" cols=\"$cols\">".$oldresponse;
+    } else {
+      $result='<table border="1"><tr><td><i>'.$oldresponse.'</i></td></tr></table>';
+    }
     if ($oldresponse ne '') {
       #get rid of any startup text if the user has already responded
       &Apache::lonxml::get_all_text("/textarea",$$parser[$#$parser]);
@@ -67,8 +71,10 @@ sub start_textarea {
 sub end_textarea {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   if ($target eq 'web') {
-    return "</textarea>";
-  } 
+    if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
+      return "</textarea>";
+    }
+  }
   &end_input;
   return '';
 }
@@ -83,8 +89,12 @@ sub start_textline {
     my $id=$Apache::inputtags::response['-1'];
     my $oldresponse = 
       $Apache::lonhomework::history{"resource.$partid.$id.submission"};
-    $result= '<input type="text" name="HWVAL'.$id.'" value="'.
-      $oldresponse.'" size="'.$size.'" />';
+    if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
+      $result= '<input type="text" name="HWVAL'.$id.'" value="'.
+	$oldresponse.'" size="'.$size.'" />';
+    } else {
+      $result='<i>'.$oldresponse.'</i>';
+    }
   } elsif ($target eq 'edit') {
     $result=&Apache::edit::tag_start($target,$token,
 				     &Apache::lonxml::description($token));