loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.50, 2002/01/17 12:23:31	version 1.51, 2002/01/18 17:45:30
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;