--- loncom/homework/inputtags.pm 2001/12/04 15:17:56 1.47 +++ loncom/homework/inputtags.pm 2002/01/08 21:09:23 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.47 2001/12/04 15:17:56 albertel Exp $ +# $Id: inputtags.pm,v 1.48 2002/01/08 21:09:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,7 +31,7 @@ package Apache::inputtags; use strict; sub BEGIN { - &Apache::lonxml::register('Apache::inputtags',('textarea','textline','datasubmission')); + &Apache::lonxml::register('Apache::inputtags',('textfield','textline','datasubmission')); } @@ -71,7 +71,7 @@ sub end_input { return ''; } -sub start_textarea { +sub start_textfield { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result = ""; my $id = &start_input($parstack,$safeeval); @@ -89,13 +89,13 @@ sub start_textarea { } if ($oldresponse ne '') { #get rid of any startup text if the user has already responded - &Apache::lonxml::get_all_text("/textarea",$$parser[$#$parser]); + &Apache::lonxml::get_all_text("/textfield",$$parser[$#$parser]); } } return $result; } -sub end_textarea { +sub end_textfield { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; if ($target eq 'web') { if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {