--- loncom/homework/inputtags.pm	2002/01/17 12:23:31	1.50
+++ loncom/homework/inputtags.pm	2002/01/18 17:45:30	1.51
@@ -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.51 2002/01/18 17:45:30 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;