--- loncom/homework/inputtags.pm	2002/01/17 12:23:31	1.50
+++ loncom/homework/inputtags.pm	2002/01/30 17:32:42	1.52
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.50 2002/01/17 12:23:31 harris41 Exp $
+# $Id: inputtags.pm,v 1.52 2002/01/30 17:32:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -89,7 +89,14 @@ sub start_textfield {
     }
     if ($oldresponse ne '') {
       #get rid of any startup text if the user has already responded
-      &Apache::lonxml::get_all_text("/textfield",$$parser[$#$parser]);
+      &Apache::lonxml::get_all_text("/textfield",$$parser[-1]);
+    }
+  }
+  if ($target eq 'grade') {
+    my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]);
+    if ($seedtext eq $ENV{'form.HWVAL'.$Apache::inputtags::response[-1]}) {
+      # if the seed text is still there it wasn't a real submission
+      $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}='';
     }
   }
   return $result;
@@ -401,7 +408,7 @@ sub gradestatus {
     }
     if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
     if ( $showbutton ) { 
-      $button = '<br /><input type="submit" name="submit" value="Submit All Answers" />';
+      $button = '<br /><input type="submit" name="submit" value="Submit Answer" />';
     }
   }
   my $output= $previousmsg.$message.$trystr;