version 1.126, 2005/11/01 21:33:49
|
version 1.127, 2005/11/03 23:00:53
|
Line 94 sub pushrandomnumber {
|
Line 94 sub pushrandomnumber {
|
# do nothing |
# do nothing |
} else { |
} else { |
my @seed=&Math::Random::random_get_seed(); |
my @seed=&Math::Random::random_get_seed(); |
push (@randomseeds,\@seed); |
push(@randomseeds,\@seed); |
} |
} |
&Apache::response::setrandomnumber(); |
&Apache::response::setrandomnumber(@_); |
} |
} |
sub poprandomnumber { |
sub poprandomnumber { |
my $rand_alg=&Apache::lonnet::get_rand_alg(); |
my $rand_alg=&Apache::lonnet::get_rand_alg(); |
Line 113 sub poprandomnumber {
|
Line 113 sub poprandomnumber {
|
} |
} |
|
|
sub setrandomnumber { |
sub setrandomnumber { |
|
my ($ignore_id2) = @_; |
my $rndseed; |
my $rndseed; |
$rndseed=&Apache::structuretags::setup_rndseed(); |
$rndseed=&Apache::structuretags::setup_rndseed(); |
if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); } |
if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); } |
Line 130 sub setrandomnumber {
|
Line 131 sub setrandomnumber {
|
$shift_amt=scalar(@Apache::inputtags::responselist); |
$shift_amt=scalar(@Apache::inputtags::responselist); |
} elsif ($Apache::lonhomework::parsing_a_task) { |
} elsif ($Apache::lonhomework::parsing_a_task) { |
$id1=$Apache::bridgetask::dimension; |
$id1=$Apache::bridgetask::dimension; |
if (defined($Apache::bridgetask::instance[-1])) { |
if (!$ignore_id2 && defined($Apache::bridgetask::instance[-1])) { |
$id2=$Apache::bridgetask::instance[-1]; |
$id2=$Apache::bridgetask::instance[-1]; |
} |
} |
Apache->request->print("<p> $id1 $id2</p>"); |
|
$shift_amt=scalar(@Apache::bridgetask::instance); |
$shift_amt=scalar(@Apache::bridgetask::instance); |
} |
} |
&Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt"); |
&Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt"); |
Line 152 sub setrandomnumber {
|
Line 152 sub setrandomnumber {
|
} |
} |
} else { |
} else { |
($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2"); |
($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2"); |
|
|
} |
} |
|
|
if ($rndseed =~/([,:])/) { |
if ($rndseed =~/([,:])/) { |
my $char=$1; |
my $char=$1; |
use integer; |
use integer; |