loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.201, 2008/09/05 21:32:56	version 1.204, 2008/09/11 14:47:17
Line 486 sub start_mathresponse {	Line 486 sub start_mathresponse {
$safeeval);	$safeeval);
$Apache::inputtags::answertxt{$id}=[$answer];	$Apache::inputtags::answertxt{$id}=[$answer];
}	}
if ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') {
$result.=&edit_mathresponse_button($id,"HWVAL_$id");
}

} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
Line 575 sub end_mathresponse {	Line 572 sub end_mathresponse {
}	}
if ($target eq 'web') {	if ($target eq 'web') {
&setup_prior_tries_hash(\&format_prior_response_math);	&setup_prior_tries_hash(\&format_prior_response_math);
	my $partid = $Apache::inputtags::part;
	my $id = $Apache::inputtags::response[-1];
	if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')
	&& (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoneditor') ne 'no')) {
	$result.=&edit_mathresponse_button($id,"HWVAL_$id");
	}
}	}

pop(@Apache::lonxml::namespace);	pop(@Apache::lonxml::namespace);
Line 1189 sub submitted {	Line 1192 sub submitted {
}	}
# Submit All button on a .page was pressed	# Submit All button on a .page was pressed
if (defined($env{'form.all_submit'})) { return 1; }	if (defined($env{'form.all_submit'})) { return 1; }
# otherwise no submission occured	# otherwise no submission occurred
return 0;	return 0;
}	}