loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.38, 2004/09/09 18:34:29	version 1.40, 2004/10/21 06:35:57
Line 235 sub grade_response {	Line 235 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);
}	}
Line 376 sub start_foil {	Line 381 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';