--- rat/lonuserstate.pm	2003/02/21 23:01:48	1.50
+++ rat/lonuserstate.pm	2003/02/25 15:58:51	1.51
@@ -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.50 2003/02/21 23:01:48 albertel Exp $
+# $Id: lonuserstate.pm,v 1.51 2003/02/25 15:58:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,6 +67,7 @@ my @cond;    # Array with all of the con
 my $errtext; # variable with all errors
 my $retfurl; # variable with the very first URL in the course
 my %randompick; # randomly picked resources
+my %randompickseed; # optional seed for randomly picking resources
 my %actualversion; # version of resource as loaded now
 my %setversion; # forced version of resource
 my %lastversion; # version when CC came in last
@@ -239,6 +240,9 @@ sub loadmap {
                     if ($token->[2]->{'name'} eq 'parameter_randompick') {
 			$randompick{$referid}=$token->[2]->{'value'};
                     }
+                    if ($token->[2]->{'name'} eq 'parameter_randompickseed') {
+			$randompick{$referid}=$token->[2]->{'value'};
+                    }
                 } 
 
             }
@@ -432,6 +436,7 @@ sub pickrandom {
         next if ($#currentrids<$rndpick);
 # -------------------------------- randomly eliminate the ones that should stay
 	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);
 	my @whichids=&Math::Random::random_permuted_index($#currentrids+1);