--- loncom/auth/lonauth.pm	2003/04/03 16:50:46	1.47
+++ loncom/auth/lonauth.pm	2003/04/07 18:24:05	1.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.47 2003/04/03 16:50:46 www Exp $
+# $Id: lonauth.pm,v 1.48 2003/04/07 18:24:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -130,6 +130,7 @@ sub success {
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
 	print $idf "request.role=cm\n";
+        print $idf "request.role.adv=$ENV{'user.adv'}\n";
 	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
 	if ($FORM{'interface'}) {
 	    $FORM{'interface'}=~s/\W//gs;
@@ -147,6 +148,7 @@ sub success {
 	$idf->close();
     }
     $ENV{'request.role'}='cm';
+    $ENV{'request.role.adv'}=$ENV{'user.adv'};
     $ENV{'browser.type'}=$clientbrowser;
 # -------------------------------------------------------------------- Log this