--- loncom/auth/lonroles.pm	2004/01/31 00:46:45	1.85
+++ loncom/auth/lonroles.pm	2004/03/05 01:55:01	1.87
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.85 2004/01/31 00:46:45 www Exp $
+# $Id: lonroles.pm,v 1.87 2004/03/05 01:55:01 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -142,6 +142,10 @@ ENDENTERKEY
 			     }
 			 }
 		     }
+		    &Apache::lonnet::log($ENV{'user.domain'},
+					 $ENV{'user.name'},
+					 $ENV{'user.home'},
+					 "Role ".$trolecode);
                     my $tadv=0;
                     if (($trolecode!~/^st/) && 
                         ($trolecode!~/^ta/) && 
@@ -370,6 +374,7 @@ ENDHEADER
                     $tbg='#11CC55';
                     $tfont='#002200';
 		    $inrole=1;
+		    $countactive++;
                     $tremark.=&mt('Currently selected. ');
                 }
                 my $trole;