[LON-CAPA-cvs] cvs: loncom /homework structuretags.pm

[albertel]

albertel		Wed Jun  4 16:32:30 2003 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - Fixes BUG#1614, New Randomization was re randomizing when doing the answer target.
  
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.179 loncom/homework/structuretags.pm:1.180
--- loncom/homework/structuretags.pm:1.179	Wed Jun  4 10:49:20 2003
+++ loncom/homework/structuretags.pm	Wed Jun  4 16:32:30 2003
@@ -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 @@
 		$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);