loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.640, 2010/12/18 23:09:57	version 1.641, 2010/12/20 21:23:38
Line 2414 sub get_last_submission {	Line 2414 sub get_last_submission {
($lasthash{$key} eq 'randomizetry')) {	($lasthash{$key} eq 'randomizetry')) {
my ($ign,@parts) = split(/\./,$key);	my ($ign,@parts) = split(/\./,$key);
pop(@parts);	pop(@parts);
	my $id = join('.',@parts);
if ($lasthash{$key} eq 'randomizetry') {	if ($lasthash{$key} eq 'randomizetry') {
my $id = join(',',@parts);
$randombytry{$ign.'.'.$id} = $lasthash{$key};	$randombytry{$ign.'.'.$id} = $lasthash{$key};
} else {	} else {
unless ($showsurv) {	unless ($showsurv) {
my $id = join(',',@parts);
$typeparts{$ign.'.'.$id} = $lasthash{$key};	$typeparts{$ign.'.'.$id} = $lasthash{$key};
}	}
}	}