--- loncom/homework/structuretags.pm 2003/06/19 20:04:16 1.187 +++ 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.187 2003/06/19 20:04:16 albertel Exp $ +# $Id: structuretags.pm,v 1.191 2003/06/30 20:21:43 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -149,11 +149,8 @@ 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'}); @@ -408,9 +405,9 @@ sub start_problem { "