loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1145, 2011/11/09 13:14:20	version 1.1146, 2011/11/29 11:54:33
Line 9751 sub rndseed {	Line 9751 sub rndseed {
if (!defined($symb)) {	if (!defined($symb)) {
unless ($symb=$wsymb) { return time; }	unless ($symb=$wsymb) { return time; }
}	}
if (!$courseid) { $courseid=$wcourseid; }	if (!defined $courseid) {
if (!$domain) { $domain=$wdomain; }	$courseid=$wcourseid;
if (!$username) { $username=$wusername }	}
	if (!defined $domain) { $domain=$wdomain; }
	if (!defined $username) { $username=$wusername }

my $which;	my $which;
if (defined($cenv->{'rndseed'})) {	if (defined($cenv->{'rndseed'})) {
Line 9761 sub rndseed {	Line 9763 sub rndseed {
} else {	} else {
$which =&get_rand_alg($courseid);	$which =&get_rand_alg($courseid);
}	}

if (defined(&getCODE())) {	if (defined(&getCODE())) {

if ($which eq '64bit5') {	if ($which eq '64bit5') {