loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.71, 2002/11/08 20:36:27	version 1.72, 2002/11/13 23:37:56
Line 128 sub end_numericalresponse {	Line 128 sub end_numericalresponse {
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];
my $response = $ENV{'form.HWVAL'.$id};	my $response = $ENV{'form.HWVAL'.$id};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
	if (!$Apache::lonxml::default_homework_loaded) {
	&Apache::lonxml::default_homework_load($safeeval);
	}
my %previous = &Apache::response::check_for_previous($response,$partid,$id);	my %previous = &Apache::response::check_for_previous($response,$partid,$id);
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
&Apache::lonxml::debug("submitted a $response<br>\n");	&Apache::lonxml::debug("submitted a $response<br>\n");