version 1.372, 2005/04/07 06:56:27
|
version 1.373, 2005/05/03 06:44:56
|
Line 784 sub init_safespace {
|
Line 784 sub init_safespace {
|
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeeval->permit("require"); |
$safeeval->permit("require"); |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::target="'.$target.'";'; |
my $rndseed; |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
|
$safeinit .= ';$external::randomseed="'.$rndseed.'";'; |
|
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
|
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
|
&initialize_rndseed($safeeval); |
|
} |
|
|
|
sub initialize_rndseed { |
|
my ($safeeval)=@_; |
|
my $rndseed; |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
|
my $safeinit = '$external::randomseed="'.$rndseed.'";'; |
|
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
|
&Apache::run::run($safeinit,$safeeval); |
} |
} |
|
|
sub default_homework_load { |
sub default_homework_load { |