[LON-CAPA-cvs] cvs: loncom / lonmap.pm
foxr
foxr at source.lon-capa.org
Fri Oct 21 06:10:07 EDT 2011
foxr Fri Oct 21 10:10:07 2011 EDT
Modified files:
/loncom lonmap.pm
Log:
Appears to work correctly.
Index: loncom/lonmap.pm
diff -u loncom/lonmap.pm:1.4 loncom/lonmap.pm:1.5
--- loncom/lonmap.pm:1.4 Fri Oct 7 12:01:51 2011
+++ loncom/lonmap.pm Fri Oct 21 10:10:07 2011
@@ -2,7 +2,7 @@
#
# Read maps into a 'big hash'.
#
-# $Id: lonmap.pm,v 1.4 2011/10/07 12:01:51 foxr Exp $
+# $Id: lonmap.pm,v 1.5 2011/10/21 10:10:07 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -403,7 +403,6 @@
my (undef,$id)=split(/\./,$rid);
if ($randompickseed{$rid}) { $id=$randompickseed{$rid}; }
my $rndseed=&Apache::lonnet::rndseed($id, $courseid, $udom, $uname, \%cenv); # use id instead of symb
- &Apache::lonnet::logthis("lonmap random seed: $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]]=''; }
More information about the LON-CAPA-cvs
mailing list