loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.49, 2002/01/11 16:32:29	version 1.51, 2002/01/18 17:45:30
Line 30	Line 30
package Apache::inputtags;	package Apache::inputtags;
use strict;	use strict;

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

Line 89 sub start_textfield {	Line 89 sub start_textfield {
}	}
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("/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;	return $result;