--- loncom/homework/structuretags.pm 2003/06/17 15:36:11 1.185 +++ loncom/homework/structuretags.pm 2003/06/30 20:21:43 1.191 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.185 2003/06/17 15:36:11 albertel Exp $ +# $Id: structuretags.pm,v 1.191 2003/06/30 20:21:43 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -149,15 +149,15 @@ sub setup_rndseed { } if ($ENV{'form.resetdata'} eq 'New Problem Variation' || $ENV{'form.newrandomization'} eq 'New Randomization') { - $rndseed=time; - if ($rndseed eq $ENV{'form.rndseed'}) { - srand($rndseed); - $rndseed=int(rand(1000000000)); - } + srand(time); + $rndseed=int(rand(2100000000)); $ENV{'form.rndseed'}=$rndseed; delete($ENV{'form.resetdata'}); delete($ENV{'form.newrandomization'}); } + if (defined($rndseed) && $rndseed ne int($rndseed)) { + $rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed)); + } &Apache::lonxml::debug("Setting rndseed to $rndseed"); &Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval); } @@ -390,7 +390,7 @@ sub start_problem { $body_tag_start \n $form_tag_start". ''; if ($ENV{'request.state'} eq "construct") { - $result.= &problem_web_to_edit_header($rndseed); + $result.= &problem_web_to_edit_header($ENV{'form.rndseed'}); } # if we are viewing someone else preserve that info if (defined $ENV{'form.grade_symb'}) { @@ -405,9 +405,9 @@ sub start_problem { "