loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/rankresponse.pm between versions 1.61 and 1.62

version 1.61, 2008/12/12 09:19:34	version 1.62, 2010/02/28 23:43:21
Line 265 sub grade_response {	Line 265 sub grade_response {
$ad='MISSING_ANSWER';	$ad='MISSING_ANSWER';
}	}
}	}
if ($Apache::lonhomework::type eq 'survey' &&	if (($ad eq 'INCORRECT' \|\| $ad eq 'EXACT_ANS')) {
($ad eq 'INCORRECT' \|\| $ad eq 'EXACT_ANS') ) {	if ($Apache::lonhomework::type eq 'survey') {
$ad='SUBMITTED';	$ad='SUBMITTED';
	} elsif ($Apache::lonhomework::type eq 'surveycred') {
	$ad='SUBMITTED_CREDIT';
	} elsif ($Apache::lonhomework::type eq 'anonsurvey') {
	$ad='ANONYMOUS';
	} elsif ($Apache::lonhomework::type eq 'anonsurveycred') {
	$ad='ANONYMOUS_CREDIT';
	} else {
	$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
	}
} else {	} else {
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;	$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr;
}	}
Line 317 sub displayfoils {	Line 326 sub displayfoils {
my $temp=1;	my $temp=1;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};	my $lastresponse;
	unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') \|\| ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) && (defined($env{'form.grade_symb'}))) {
	$lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};
	}
my %lastresponse=&Apache::lonnet::str2hash($lastresponse);	my %lastresponse=&Apache::lonnet::str2hash($lastresponse);
my @alp = splice @alphabet, 0, $#whichopt + 1;	my @alp = splice @alphabet, 0, $#whichopt + 1;
my $internal_counter=$Apache::lonxml::counter;	my $internal_counter=$Apache::lonxml::counter;

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

Removed from v.1.61
changed lines
	Added in v.1.62