[LON-CAPA-cvs] cvs: rat / lonpage.pm

[raeburn]

raeburn		Sun Aug 29 14:45:52 2004 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  More customary LON-CAPA role checking practice.
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.57 rat/lonpage.pm:1.58
--- rat/lonpage.pm:1.57	Sun Aug 29 14:34:36 2004
+++ rat/lonpage.pm	Sun Aug 29 14:45:52 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.57 2004/08/29 18:34:36 raeburn Exp $
+# $Id: lonpage.pm,v 1.58 2004/08/29 18:45:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,7 +74,7 @@
     my ($sofar,$rid,$beenhere)=@_;
     my $further=$sofar;
     my $randomout=0;
-    if ($ENV{'request.role'} =~ /^st/) {
+    unless ($ENV{'request.role.adv'}) {
         $randomout = $hash{'randomout_'.$rid};
     }
     unless ($beenhere=~/\&$rid\&/) {