[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[raeburn]

raeburn		Sun Feb 22 18:40:18 2015 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  Bug 6476
   - When target is grade, put rawrndseed returned by &initialize_rndseed() 
     in $Apache::lonhomework::rawrndseed so it can be later stored in:
     in %Apache::lonhomework::results
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.551 loncom/xml/lonxml.pm:1.552
--- loncom/xml/lonxml.pm:1.551	Mon Dec 15 17:39:24 2014
+++ loncom/xml/lonxml.pm	Sun Feb 22 18:40:18 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.551 2014/12/15 17:39:24 raeburn Exp $
+# $Id: lonxml.pm,v 1.552 2015/02/22 18:40:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -813,7 +813,10 @@
   $safeeval->permit("require");
   $safeinit .= ';$external::target="'.$target.'";';
   &Apache::run::run($safeinit,$safeeval);
-  &initialize_rndseed($safeeval);
+  my $rawrndseed = &initialize_rndseed($safeeval);
+  if ($target eq 'grade') {
+      $Apache::lonhomework::rawrndseed = $rawrndseed;
+  }
 }
 
 sub clean_safespace {
@@ -852,6 +855,7 @@
     my $safeinit = '$external::randomseed="'.$rndseed.'";';
     &Apache::lonxml::debug("Setting rndseed to $rndseed");
     &Apache::run::run($safeinit,$safeeval);
+    return $rndseed;
 }
 
 sub default_homework_load {