--- loncom/homework/inputtags.pm 2002/01/11 16:32:29 1.49
+++ 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.49 2002/01/11 16:32:29 matthew 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;
@@ -401,7 +408,7 @@ sub gradestatus {
}
if ( $status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
if ( $showbutton ) {
- $button = '
';
+ $button = '
';
}
}
my $output= $previousmsg.$message.$trystr;