[LON-CAPA-cvs] cvs: rat / lonuserstate.pm

[albertel]

albertel		Wed Apr 30 17:13:57 2003 EDT

  Modified files:              
    /rat	lonuserstate.pm 
  Log:
  - understands new rndseed setup
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.57 rat/lonuserstate.pm:1.58
--- rat/lonuserstate.pm:1.57	Tue Mar 25 17:50:14 2003
+++ rat/lonuserstate.pm	Wed Apr 30 17:13:57 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.57 2003/03/25 22:50:14 albertel Exp $
+# $Id: lonuserstate.pm,v 1.58 2003/04/30 21:13:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -443,7 +443,7 @@
 	my (undef,$id)=split(/\./,$rid);
         if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; }
 	my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb
-	&Math::Random::random_set_seed_from_phrase($rndseed);
+	&Apache::lonnet::setup_random_from_rndseed($rndseed);
 	my @whichids=&Math::Random::random_permuted_index($#currentrids+1);
         for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; }
 	#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids));