[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /homework grades.pm

[raeburn]

raeburn		Wed Dec 22 17:11:13 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/homework	grades.pm 
  Log:
  - Backport 1.641
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.596.2.2 loncom/homework/grades.pm:1.596.2.3
--- loncom/homework/grades.pm:1.596.2.2	Mon Dec 20 04:23:43 2010
+++ loncom/homework/grades.pm	Wed Dec 22 17:11:12 2010
@@ -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 @@
                     ($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};
                         }
                     }