version 1.315, 2005/11/04 15:34:32
|
version 1.316, 2005/11/08 17:53:20
|
Line 175 sub setup_rndseed {
|
Line 175 sub setup_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'}) { |
$Apache::lonhomework::history{'resource.CODE'}) { |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['rndseed']); |
$rndseed=$env{'form.rndseed'}; |
$rndseed=$env{'form.rndseed'}; |
if (!$rndseed) { |
if (!$rndseed) { |
$rndseed=$Apache::lonhomework::history{'rndseed'}; |
$rndseed=$Apache::lonhomework::history{'rndseed'}; |