[LON-CAPA-cvs] cvs: loncom /homework grades.pm inputtags.pm

[raeburn]

raeburn		Tue Mar 17 12:22:20 2015 EDT

  Modified files:              
    /loncom/homework	inputtags.pm grades.pm 
  Log:
  - Bug 6476
    rndseed in use now always stored as part of submission record. 
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.331 loncom/homework/inputtags.pm:1.332
--- loncom/homework/inputtags.pm:1.331	Tue Mar 10 23:11:22 2015
+++ loncom/homework/inputtags.pm	Tue Mar 17 12:22:20 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.331 2015/03/10 23:11:22 raeburn Exp $
+# $Id: inputtags.pm,v 1.332 2015/03/17 12:22:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1786,7 +1786,7 @@
                              {$1 <strong>$txt_correct</strong>. $3}s;
 	    }
             my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
-            if (($curr_rndseed || $lastrndseed) && ($i > 1)) {
+            if (($curr_rndseed ne '') &&  ($lastrndseed ne '')) {
                 if ($curr_rndseed ne $lastrndseed) {
                     $trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>';
                 }
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.733 loncom/homework/grades.pm:1.734
--- loncom/homework/grades.pm:1.733	Sun Feb 22 15:23:56 2015
+++ loncom/homework/grades.pm	Tue Mar 17 12:22:20 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.733 2015/02/22 15:23:56 raeburn Exp $
+# $Id: grades.pm,v 1.734 2015/03/17 12:22:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4864,7 +4864,7 @@
 		        } 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').')';
                                 }