--- loncom/homework/inputtags.pm	2002/01/08 21:09:23	1.48
+++ 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.48 2002/01/08 21:09:23 albertel Exp $
+# $Id: inputtags.pm,v 1.52 2002/01/30 17:32:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@
 package Apache::inputtags;
 use strict;
 
-sub BEGIN {
+BEGIN {
   &Apache::lonxml::register('Apache::inputtags',('textfield','textline','datasubmission'));
 }
 
@@ -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;
@@ -123,8 +130,7 @@ sub start_textline {
       $result='<i>'.$oldresponse.'</i>';
     }
   } elsif ($target eq 'edit') {
-    $result=&Apache::edit::tag_start($target,$token,
-				     &Apache::lonxml::description($token));
+    $result=&Apache::edit::tag_start($target,$token);
     $result.=&Apache::edit::text_arg('Size:','size',$token,'5')."</td></tr>";
     $result.=&Apache::edit::end_table;
   } elsif ($target eq 'modified') {
@@ -402,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;