--- loncom/homework/inputtags.pm	2001/03/21 18:24:36	1.29
+++ loncom/homework/inputtags.pm	2001/04/05 00:09:19	1.30
@@ -41,7 +41,12 @@ sub start_textarea {
   my $result = "";
   my $id = &start_input($parstack,$safeeval);
   if ($target eq 'web') {
-    $result= '<textarea name="HWVAL'.$id.'" value="">';
+    my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};
+    $result= '<textarea name="HWVAL'.$Apache::inputtags::response['-1'].'">'.$oldresponse;
+    if ($oldresponse ne '') {
+      #get rid of any startup text if the user has already responded
+      &Apache::lonxml::get_all_text("/textarea",$$parser[$#$parser]);
+    }
   }
   return $result;
 }
@@ -156,6 +161,9 @@ sub finalizeawards {
     foreach $award (@_) { if ($award eq 'INCORRECT') {$result=$award; last;} }
   }
   if ($result eq '' ) {
+    foreach $award (@_) { if ($award eq 'SUBMITTED') {$result=$award; last;} }
+  }
+  if ($result eq '' ) {
     foreach $award (@_) { if ($award eq 'APPROX_ANS') {$result=$award; last;} }
   }
   if ($result eq '' ) { $result='EXACT_ANS'; }
@@ -196,6 +204,9 @@ sub decideoutput {
   } elsif ($award eq 'INCORRECT') {
     $message = "Incorrect";
     $button=1;
+  } elsif ($award eq 'SUBMITTED') {
+    $message = "Your submission has been recorded.";
+    $button=1;
   } else {
     $message = "Unknown message: $award";
     $button=1;
@@ -216,6 +227,11 @@ sub setgradedata {
       $Apache::lonhomework::history{"resource.$id.tries"} + 1;
     $Apache::lonhomework::results{"resource.$id.solved"} =
       'incorrect_attempted';
+  } elsif ( $award eq 'SUBMITTED' ) {
+    $Apache::lonhomework::results{"resource.$id.tries"} =
+      $Apache::lonhomework::history{"resource.$id.tries"} + 1;
+    $Apache::lonhomework::results{"resource.$id.solved"} =
+      'ungraded_attempted';
   } else {
     $Apache::lonhomework::results{"resource.$id.solved"} =
       'incorrect_attempted';
@@ -236,7 +252,7 @@ sub grade {
 	&Apache::lonxml::debug("looking for response.$id.$response.awarddetail");
 	my $value=$Apache::lonhomework::results{"resource.$id.$response.awarddetail"};
 	if ( $value ne '' ) {
-	  &Apache::lonxml::debug("keep ing $value from $response for $id");
+	  &Apache::lonxml::debug("keeping $value from $response for $id");
 	  push (@awards,$value);
 	} else {
 	  &Apache::lonxml::debug("skipping $value from $response for $id");