version 1.551, 2014/12/15 17:39:24
|
version 1.552, 2015/02/22 18:40:18
|
Line 813 sub init_safespace {
|
Line 813 sub init_safespace {
|
$safeeval->permit("require"); |
$safeeval->permit("require"); |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::target="'.$target.'";'; |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
&initialize_rndseed($safeeval); |
my $rawrndseed = &initialize_rndseed($safeeval); |
|
if ($target eq 'grade') { |
|
$Apache::lonhomework::rawrndseed = $rawrndseed; |
|
} |
} |
} |
|
|
sub clean_safespace { |
sub clean_safespace { |
Line 852 sub initialize_rndseed {
|
Line 855 sub initialize_rndseed {
|
my $safeinit = '$external::randomseed="'.$rndseed.'";'; |
my $safeinit = '$external::randomseed="'.$rndseed.'";'; |
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
|
return $rndseed; |
} |
} |
|
|
sub default_homework_load { |
sub default_homework_load { |