loncom/homework/externalresponse.pm - diff

Return to externalresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/externalresponse.pm between versions 1.18 and 1.19.10.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.18, 2010/12/21 01:53:08	version 1.19.10.1, 2014/02/26 20:52:11
Line 118 sub end_externalresponse {	Line 118 sub end_externalresponse {
$Apache::externalresponse::message=$Apache::loncapagrade::results{'message'};	$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'});
	if ($Apache::loncapagrade::results{'awarddetail'} eq 'ASSIGNED_SCORE') {
	$Apache::lonhomework::results{"resource.$part.$id.awarded"}=
	1.*$Apache::loncapagrade::results{"awarded"};
	}
&Apache::lonxml::debug("response of");	&Apache::lonxml::debug("response of");
&Apache::lonhomework::showhash(%$res);	&Apache::lonhomework::showhash(%$res);
&Apache::lonxml::debug("capagrade of");	&Apache::lonxml::debug("capagrade of");
Line 131 sub end_externalresponse {	Line 135 sub end_externalresponse {
&Apache::response::setup_prior_tries_hash(\&format_prior_response);	&Apache::response::setup_prior_tries_hash(\&format_prior_response);
if (&Apache::response::show_answer()) {	if (&Apache::response::show_answer()) {
$result.='<table border="1"><tr><th>'.&mt('Your answer:').'</th></tr><tr><td><pre>'.	$result.='<table border="1"><tr><th>'.&mt('Your answer:').'</th></tr><tr><td><pre>'.
$Apache::lonhomework::history{"resource.$part.$id.submission"}.	&HTML::Entities::encode(
	$Apache::lonhomework::history{"resource.$part.$id.submission"},'"<>&').
'</pre></td></table><br />'.&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval).	'</pre></td></table><br />'.&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval).
'<br />';	'<br />';
}	}

Removed from v.1.18
changed lines
	Added in v.1.19.10.1