version 1.121, 2001/08/20 23:31:08
|
version 1.122, 2001/08/21 17:21:50
|
Line 738 sub init_safespace {
|
Line 738 sub init_safespace {
|
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::target="'.$target.'";'; |
my $rndseed; |
my $rndseed; |
if (exists(&Apache::lonhomework::whichuser)) { |
if (defined(&Apache::lonhomework::whichuser)) { |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
} else { |
} else { |