--- loncom/homework/lonhomework.pm	2002/11/12 05:05:26	1.101
+++ loncom/homework/lonhomework.pm	2002/11/13 23:05:46	1.102
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.101 2002/11/12 05:05:26 albertel Exp $
+# $Id: lonhomework.pm,v 1.102 2002/11/13 23:05:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -332,13 +332,12 @@ sub analyze {
     my %overall;
     my %allparts;
     my $rndseed=$ENV{'form.rndseed'};
-    srand($rndseed);
     &analyze_header($request);
-    for(my $i;$i<$ENV{'form.numtoanalyze'};$i++) {
+    for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) {
 	my $subresult=&Apache::lonnet::ssi($request->uri,
 					   ('grade_target' => 'analyze'),
-					   ('rndseed' => rand));
-	#&Apache::lonxml::debug(":$subresult:");
+					   ('rndseed' => $i));
+	&Apache::lonxml::debug(":$subresult:");
 	(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2);
 	my %analyze=&Apache::lonnet::str2hash($subresult);
 	&Apache::lonhomework::showhash(%analyze);