--- loncom/xml/lonxml.pm 2014/12/15 17:39:24 1.551 +++ loncom/xml/lonxml.pm 2015/02/22 18:40:18 1.552 @@ -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 @@ sub init_safespace { $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 @@ sub initialize_rndseed { my $safeinit = '$external::randomseed="'.$rndseed.'";'; &Apache::lonxml::debug("Setting rndseed to $rndseed"); &Apache::run::run($safeinit,$safeeval); + return $rndseed; } sub default_homework_load {