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

[raeburn]

raeburn		Tue Mar 17 12:37:40 2015 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/homework	grades.pm 
  Log:
  - For 2.11
    Backport changes in 1.734, and one line from changes in 1.640 missed in 
    earlier 1.596.2.2 backport. 
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.596.2.12.2.33 loncom/homework/grades.pm:1.596.2.12.2.34
--- loncom/homework/grades.pm:1.596.2.12.2.33	Tue Mar 10 17:01:24 2015
+++ loncom/homework/grades.pm	Tue Mar 17 12:37:40 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.596.2.12.2.33 2015/03/10 17:01:24 raeburn Exp $
+# $Id: grades.pm,v 1.596.2.12.2.34 2015/03/17 12:37:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5071,11 +5071,12 @@
 		        } else {
 			    $displaySub[0].=&mt('Trial: [_1]',
 					    $$record{"$where.$partid.tries"});
-                            if ($rndseed || $lastrndseed{$partid}) {
+                            if (($rndseed ne '')  && ($lastrndseed{$partid} ne '')) {
                                 if ($rndseed ne $lastrndseed{$partid}) {
                                     $newvariation = ' ('.&mt('New variation this try').')';
                                 }
                             }
+                            $lastrndseed{$partid} = $rndseed;
 		        }
 		        my $responseType=($isTask ? 'Task'
                                               : $responseType->{$partid}->{$responseId});