loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.7, 2007/04/18 00:19:37	version 1.9, 2007/09/11 19:24:14
Line 74 sub end_externalresponse {	Line 74 sub end_externalresponse {
$part,$id);	$part,$id);
%Apache::loncapagrade::results=();	%Apache::loncapagrade::results=();
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;
if ($res->{_rc} != '200') {	if ($res->is_error()) {
$Apache::loncapagrade::results{'awarddetail'}='ERROR';	$Apache::loncapagrade::results{'awarddetail'}='ERROR';
} else {	} else {
&Apache::lonxml::register('Apache::loncapagrade',	&Apache::lonxml::register('Apache::loncapagrade',
('loncapagrade'));	('loncapagrade'));
	@Apache::scripttag::parser_env = @_;
my $result=&Apache::scripttag::xmlparse($res->{_content});	my $result=&Apache::scripttag::xmlparse($res->{_content});
&Apache::lonxml::debug("Got a result of :$result:");	&Apache::lonxml::debug("Got a result of :$result:");
}	}