--- loncom/homework/inputtags.pm	2001/08/18 07:56:51	1.44
+++ loncom/homework/inputtags.pm	2001/11/12 20:27:28	1.46
@@ -23,11 +23,13 @@ sub initialize_inputtags {
   @Apache::inputtags::previous=();
   # id of current part, 0 means that no part is current (inside <problem> only
   $Apache::inputtags::part='';
-  # list of problem date statuses, the first element is for <problem> 
-  #if there is a second element it is for the current <part>
+  # list of problem date statuses, the first element is for <problem>
+  # if there is a second element it is for the current <part>
   @Apache::inputtags::status=();
-  #hash of defined params for the current response
+  # hash of defined params for the current response
   %Apache::inputtags::params=();
+  # list of all ids, for <import>, these get join()ed and prepended
+  @Apache::inputtags::import=();
 }
 
 sub start_input {
@@ -54,8 +56,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 +73,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 +91,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));