--- loncom/auth/lonauth.pm	1999/10/13 17:48:52	1.1
+++ loncom/auth/lonauth.pm	1999/12/16 20:30:55	1.3
@@ -1,6 +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 Gerd Kortemeyer
+# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15
+# 16/11,12/16 Gerd Kortemeyer
 
 package Apache::lonauth;
 
@@ -23,9 +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 "Name: $username\n";
+            print $idf "username=$username\n";
+            print $idf "userdomain=$domain\n";
+            print $idf "userhome=$authhost\n";
+            print $idf "$userroles\n";
         }
     }
     $cookie="lonID=$cookie; path=/";