version 1.568, 2019/11/05 18:08:09
|
version 1.569, 2019/11/06 16:20:06
|
Line 789 sub setup_rndseed {
|
Line 789 sub setup_rndseed {
|
if ($safeeval) { |
if ($safeeval) { |
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval); |
&Apache::run::run('$external::randomseed="'.$rndseed.'";',$safeeval); |
|
my $prevparttype; |
|
if (@Apache::inputtags::partlist > 1) { |
|
$prevparttype = &Apache::lonnet::EXT("resource.$Apache::inputtags::partlist[-2].type"); |
|
} |
|
if (($Apache::lonhomework::type eq 'randomizetry') || ($prevparttype eq 'randomizetry')) { |
|
&Apache::lonxml::debug("Setting randomizetrypart to $Apache::inputtags::part"); |
|
&Apache::run::run('$external::randomizetrypart="'.$Apache::inputtags::part.'";',$safeeval); |
|
} |
} |
} |
} |
} |
unless (($env{'request.state'} eq "construct") || ($symb eq '')) { |
unless (($env{'request.state'} eq "construct") || ($symb eq '')) { |