loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.120, 2004/09/29 05:47:33	version 1.121, 2004/10/21 06:33:37
Line 220 sub end_foilgroup {	Line 220 sub end_foilgroup {
$responsestr;	$responsestr;
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;	$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;

if (!$Apache::lonhomework::scantronmode) {	if ($Apache::lonhomework::type eq 'survey') {
	if ($ignored == 0) {
	my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED';
	&Apache::response::handle_previous(\%previous,$ad);
	} elsif ($wrong==0 && $right==0) {
	} else {
	my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='MISSING_ANSWER';
	&Apache::response::handle_previous(\%previous,$ad);
	}
	} elsif (!$Apache::lonhomework::scantronmode) {
my $ad;	my $ad;
if ($wrong==0 && $ignored==0) {	if ($wrong==0 && $ignored==0) {
$ad='EXACT_ANS';	$ad='EXACT_ANS';