--- loncom/homework/grades.pm 2010/12/18 23:09:57 1.640 +++ loncom/homework/grades.pm 2010/12/20 21:23:38 1.641 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.640 2010/12/18 23:09:57 raeburn Exp $ +# $Id: grades.pm,v 1.641 2010/12/20 21:23:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2414,12 +2414,11 @@ sub get_last_submission { ($lasthash{$key} eq 'randomizetry')) { my ($ign,@parts) = split(/\./,$key); pop(@parts); + my $id = join('.',@parts); if ($lasthash{$key} eq 'randomizetry') { - my $id = join(',',@parts); $randombytry{$ign.'.'.$id} = $lasthash{$key}; } else { unless ($showsurv) { - my $id = join(',',@parts); $typeparts{$ign.'.'.$id} = $lasthash{$key}; } }