loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.45, 2004/10/07 18:06:05	version 1.47, 2004/10/21 06:35:57
Line 350 sub grade_response {	Line 350 sub grade_response {
$itemstr;	$itemstr;
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=	$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=
$gradestr;	$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';
Line 591 sub start_foil {	Line 600 sub start_foil {
my $result='';	my $result='';
if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {	if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
	if ($target eq 'analyze') {
	&Apache::response::check_if_computed($token,$parstack,$safeeval,'value');
	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token,"Foil");	$result=&Apache::edit::tag_start($target,$token,"Foil");
my $level='-2';	my $level='-2';