loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.47, 2001/12/04 15:17:56	version 1.48, 2002/01/08 21:09:23
Line 31 package Apache::inputtags;	Line 31 package Apache::inputtags;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::inputtags',('textarea','textline','datasubmission'));	&Apache::lonxml::register('Apache::inputtags',('textfield','textline','datasubmission'));
}	}


Line 71 sub end_input {	Line 71 sub end_input {
return '';	return '';
}	}

sub start_textarea {	sub start_textfield {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result = "";	my $result = "";
my $id = &start_input($parstack,$safeeval);	my $id = &start_input($parstack,$safeeval);
Line 89 sub start_textarea {	Line 89 sub start_textarea {
}	}
if ($oldresponse ne '') {	if ($oldresponse ne '') {
#get rid of any startup text if the user has already responded	#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;	return $result;
}	}

sub end_textarea {	sub end_textfield {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ($target eq 'web') {	if ($target eq 'web') {
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {