Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.57, 2004/08/29 18:34:36 | version 1.58, 2004/08/29 18:45:52 |
---|---|
Line 74 sub tracetable { | Line 74 sub tracetable { |
my ($sofar,$rid,$beenhere)=@_; | my ($sofar,$rid,$beenhere)=@_; |
my $further=$sofar; | my $further=$sofar; |
my $randomout=0; | my $randomout=0; |
if ($ENV{'request.role'} =~ /^st/) { | unless ($ENV{'request.role.adv'}) { |
$randomout = $hash{'randomout_'.$rid}; | $randomout = $hash{'randomout_'.$rid}; |
} | } |
unless ($beenhere=~/\&$rid\&/) { | unless ($beenhere=~/\&$rid\&/) { |