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