loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.15, 2008/11/20 14:37:37	version 1.16, 2010/12/20 15:54:03
Line 113 sub end_externalresponse {	Line 113 sub end_externalresponse {
$Apache::lonhomework::results{"resource.$part.$id.$key"}=	$Apache::lonhomework::results{"resource.$part.$id.$key"}=
$Apache::loncapagrade::results{$key};	$Apache::loncapagrade::results{$key};
}	}
	$Apache::externalresponse::message=$Apache::loncapagrade::results{'message'};
&Apache::response::handle_previous(\%previous,	&Apache::response::handle_previous(\%previous,
$Apache::loncapagrade::results{'awarddetail'});	$Apache::loncapagrade::results{'awarddetail'});
&Apache::lonxml::debug("response of");	&Apache::lonxml::debug("response of");
Line 126 sub end_externalresponse {	Line 127 sub end_externalresponse {
}	}
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::response::setup_prior_tries_hash(\&format_prior_response);	&Apache::response::setup_prior_tries_hash(\&format_prior_response);
	if ($Apache::externalresponse::message) {
	$result.='<br />'.$Apache::externalresponse::message;
	}
	$Apache::externalresponse::message='';
}	}

if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
Line 176 described at http://www.lon-capa.org.	Line 181 described at http://www.lon-capa.org.

=back	=back

=cut

	=cut