--- loncom/auth/lonroles.pm	2003/03/24 18:46:44	1.55
+++ loncom/auth/lonroles.pm	2003/04/07 18:24:05	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.55 2003/03/24 18:46:44 albertel Exp $
+# $Id: lonroles.pm,v 1.56 2003/04/07 18:24:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -72,6 +72,7 @@ sub handler {
 				"request.course.uri"  => '',
 				"request.course.sec"  => '',
 				"request.role"        => 'cm',
+                                "request.role.adv"    => $ENV{'user.adv'},
 				"request.role.domain" => $ENV{'user.domain'});
         foreach $envkey (keys %ENV) {
             next if ($envkey!~/^user\.role\./);
@@ -129,9 +130,15 @@ ENDENTERKEY
 			     }
 			 }
 		     }
-		    &Apache::lonnet::appenv('request.role'        => $trolecode,
-					    'request.role.domain' => $cdom,
-					    'request.course.sec'  => $csec);
+                    my $tadv=0;
+                    if (($trolecode!~/^st/) && 
+                        ($trolecode!~/^ta/) && 
+                        ($trolecode!~/^cm/)) { $tadv=1; }
+		    &Apache::lonnet::appenv(
+                                           'request.role'        => $trolecode,
+					   'request.role.adv'    => $tadv,
+					   'request.role.domain' => $cdom,
+					   'request.course.sec'  => $csec);
 		    my $msg='Entering course ...';
 		    if (($cnum) && ($role ne 'ca')) {
 			my ($furl,$ferr)=