--- loncom/auth/lonauth.pm	2002/05/29 14:51:42	1.31
+++ loncom/auth/lonauth.pm	2002/09/14 05:45:45	1.32
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.31 2002/05/29 14:51:42 www Exp $
+# $Id: lonauth.pm,v 1.32 2002/09/14 05:45:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -107,15 +107,13 @@ sub success {
 
 # ------------------------------------------------------------- Get environment
 
-    my $userenv=Apache::lonnet::reply("dump:$domain:$username:environment",
-                                      $authhost);
-    if (($userenv eq 'con_lost') || 
-        ($userenv =~ /^error\:/)) {
-        $userenv='';
-    }
-    $userenv=~s/\&/\nenvironment\./g;
-    if ($userenv ne '') {
-	$userenv='environment.'.$userenv;
+    my $userenv;
+    my %userenv=Apache::lonnet::dump('environment',$domain,$username);
+    my ($tmp) = keys(%userenv);
+    if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
+	foreach my $key (keys(%userenv)) {
+	    $userenv.="environment.$key=$userenv{$key}\n";
+	}
     }
 # --------------------------------------------------------- Write first profile