loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.98, 2001/01/19 17:21:15	version 1.99, 2001/01/19 21:19:28
Line 1852 sub rndseed {	Line 1852 sub rndseed {
my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;	my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;
my $courseseed=unpack("%32C*",$ENV{'request.course.id'});	my $courseseed=unpack("%32C*",$ENV{'request.course.id'});
my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;	my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;
&Apache::lonxml::debug("$symbseed:$nameseed;$domainseed\|$courseseed;$namechck:$symbchck");	#uncommenting these lines can break things!
&Apache::lonxml::debug("rndseed :$num:$symb");	#&Apache::lonxml::debug("$symbseed:$nameseed;$domainseed\|$courseseed;$namechck:$symbchck");
	#&Apache::lonxml::debug("rndseed :$num:$symb");
return $num;	return $num;
}	}
}	}