loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.246, 2004/04/29 07:57:47	version 1.247, 2004/05/04 19:32:28
Line 153 sub setup_rndseed {	Line 153 sub setup_rndseed {
my ($safeeval)=@_;	my ($safeeval)=@_;
my $rndseed;	my $rndseed;
my ($symb)=&Apache::lonxml::whichuser();	my ($symb)=&Apache::lonxml::whichuser();
if ($ENV{'request.state'} eq "construct" \|\| $symb eq '') {	if ($ENV{'request.state'} eq "construct" \|\| $symb eq '' \|\|
	$Apache::lonhomework::history{'resource.CODE'}) {
$rndseed=$ENV{'form.rndseed'};	$rndseed=$ENV{'form.rndseed'};
if (!$rndseed) {	if (!$rndseed) {
$rndseed=$Apache::lonhomework::history{'rndseed'};	$rndseed=$Apache::lonhomework::history{'rndseed'};
Line 173 sub setup_rndseed {	Line 174 sub setup_rndseed {
if (defined($rndseed) && $rndseed ne int($rndseed)) {	if (defined($rndseed) && $rndseed ne int($rndseed)) {
$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));	$rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));
}	}
	if ($Apache::lonhomework::history{'resource.CODE'}) {
	$rndseed=&Apache::lonnet::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);