loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.39, 2004/10/07 20:28:30	version 1.41, 2004/11/08 22:56:05
Line 113 sub end_foilgroup {	Line 113 sub end_foilgroup {
my @shown = &whichfoils($max,$randomize);	my @shown = &whichfoils($max,$randomize);
&Apache::response::analyze_store_foilgroup(\@shown,	&Apache::response::analyze_store_foilgroup(\@shown,
['text','value','location']);	['text','value','location']);
	my $part_id=
	"$Apache::inputtags::part.$Apache::inputtags::response[-1]";
	$Apache::lonhomework::analyze{"$part_id.tol"}=$tol;
}	}
&Apache::lonxml::increment_counter(&getfoilcounts($max));	&Apache::lonxml::increment_counter(&getfoilcounts($max));
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
Line 235 sub grade_response {	Line 238 sub grade_response {
$ad='MISSING_ANSWER';	$ad='MISSING_ANSWER';
}	}
}	}
	if ($Apache::lonhomework::type eq 'survey' &&
	($ad eq 'INCORRECT' \|\| $ad eq 'EXACT_ANS') ) {
	$ad='SUBMITTED';
	} else {
	$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
	}
$Apache::lonhomework::results{"resource.$part.$id.submission"}=	$Apache::lonhomework::results{"resource.$part.$id.submission"}=
$responsestr;	$responsestr;
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;	$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$ad;
&Apache::response::handle_previous(\%previous,$ad);	&Apache::response::handle_previous(\%previous,$ad);
}	}