--- loncom/auth/lonauth.pm	1999/11/16 19:14:15	1.2
+++ loncom/auth/lonauth.pm	1999/12/16 20:30:55	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 # 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
-# 16/11 Gerd Kortemeyer
+# 16/11,12/16 Gerd Kortemeyer
 
 package Apache::lonauth;
 
@@ -24,11 +24,16 @@ sub success {
     } else {
         my $now=time;
         $cookie="$username\_$now\_$domain\_$authhost";
+        my $userroles=Apache::lonnet::reply(
+					    "dump:$domain:$username:roles",
+                                            $authhost);
+        $userroles=~s/&/\n/g;
         {
 	    my $idf=Apache::File->new(">$lonids/$cookie.id");
             print $idf "username=$username\n";
             print $idf "userdomain=$domain\n";
             print $idf "userhome=$authhost\n";
+            print $idf "$userroles\n";
         }
     }
     $cookie="lonID=$cookie; path=/";