--- loncom/homework/grades.pm	2015/02/10 04:02:17	1.731
+++ loncom/homework/grades.pm	2015/02/22 01:34:48	1.732
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.731 2015/02/10 04:02:17 raeburn Exp $
+# $Id: grades.pm,v 1.732 2015/02/22 01:34:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2231,7 +2231,11 @@ sub submission {
                 if ($hide eq 'rand') {
                     $type = 'randomizetry';
                     $trial = $record{"resource.$partid.tries"};
-                    $rndseed = $record{"resource.$partid.rndseed"};
+                    if (exists($record{"resource.$partid.rawrndseed"})) {
+                        $rndseed = $record{"resource.$partid.rawrndseed"};
+                    } else {
+                        $rndseed = $record{"resource.$partid.rndseed"};
+                    }
                 }
 	        if ($env{'form.checkPlag'}) {
     		    my ($oname,$odom,$ocrsid,$oessay,$osim)=
@@ -2543,7 +2547,7 @@ sub get_last_submission {
             }
             unless ($hide) {
                 if (@randomize) {
-                    foreach my $id (@hidden) {
+                    foreach my $id (@randomize) {
                         if ($key =~ /^\Q$id\E/) {
                             $hide = 'rand';
                             last;
@@ -4857,7 +4861,11 @@ sub displaySubByDates {
                         my ($trial,$rndseed,$newvariation);
                         if ($type eq 'randomizetry') {
                             $trial = $$record{"$where.$partid.tries"};
-                            $rndseed = $$record{"$where.$partid.rndseed"};
+                            if (exists($$record{"$where.$partid.rawrndseed"})) {
+                                $rndseed = $$record{"$where.$partid.rawrndseed"};
+                            } else {
+                                $rndseed = $$record{"$where.$partid.rndseed"};
+                            }
                         }
 		        if ($$record{"$where.$partid.tries"} eq '') {
 			    $displaySub[0].=&mt('Trial not counted');