loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.215, 2009/05/04 16:45:44	version 1.216, 2009/05/24 13:08:18
Line 439 sub end_customresponse {	Line 439 sub end_customresponse {
${$safeeval->varglob('LONCAPA::customresponse_submission')}=	${$safeeval->varglob('LONCAPA::customresponse_submission')}=
$response;	$response;

my $award = &Apache::run::run('{ my $submission=$LONCAPA::customresponse_submission;'.$Apache::response::custom_answer[-1].'}',$safeeval);	my ($award,$score) = &Apache::run::run('{ my $submission=$LONCAPA::customresponse_submission;'.$Apache::response::custom_answer[-1].'}',$safeeval);
if (!&Apache::inputtags::valid_award($award)) {	if (!&Apache::inputtags::valid_award($award)) {
$error = $award;	$error = $award;
$award = 'ERROR';	$award = 'ERROR';
Line 447 sub end_customresponse {	Line 447 sub end_customresponse {
&Apache::response::handle_previous(\%previous,$award);	&Apache::response::handle_previous(\%previous,$award);
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=	$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=
$award;	$award;
	if ($award eq 'ASSIGNED_SCORE') {
	$Apache::lonhomework::results{"resource.$part.$id.awarded"}=1.0*$score;
	}
if ($error) {	if ($error) {
$Apache::lonhomework::results{"resource.$part.$id.awardmsg"}=	$Apache::lonhomework::results{"resource.$part.$id.awardmsg"}=
$error;	$error;