--- rat/lonuserstate.pm	2003/03/25 22:50:14	1.57
+++ rat/lonuserstate.pm	2003/06/20 18:57:58	1.59
@@ -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.59 2003/06/20 18:57:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -125,7 +125,7 @@ sub loadmap {
                       &Apache::lonnet::declutter($uri).'___'.
                       $token->[2]->{'id'}.'___'.
 		      &Apache::lonnet::declutter($turi))}=
-                          $token->[2]->{'title'};
+                          [$token->[2]->{'title'},time];
                     unless ($ispage) {
                         $turi=~/\.(\w+)$/;
                         my $embstyle=&Apache::loncommon::fileembstyle($1);
@@ -443,7 +443,7 @@ sub pickrandom {
 	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));