--- loncom/homework/structuretags.pm 2003/06/04 14:49:20 1.179 +++ loncom/homework/structuretags.pm 2003/06/04 20:32:30 1.180 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.179 2003/06/04 14:49:20 albertel Exp $ +# $Id: structuretags.pm,v 1.180 2003/06/04 20:32:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -154,6 +154,8 @@ sub setup_rndseed { $rndseed=int(rand(1000000000)); } $ENV{'form.rndseed'}=$rndseed; + delete($ENV{'form.resetdata'}); + delete($ENV{'form.newrandomization'}); } &Apache::lonxml::debug("Setting rndseed to $rndseed"); &Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval);