--- loncom/homework/grades.pm 2010/12/20 04:23:43 1.596.2.2 +++ loncom/homework/grades.pm 2010/12/22 17:11:12 1.596.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.596.2.2 2010/12/20 04:23:43 raeburn Exp $ +# $Id: grades.pm,v 1.596.2.3 2010/12/22 17:11:12 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2505,12 +2505,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}; } }