--- loncom/lonnet/perl/lonnet.pm	2000/08/14 21:40:46	1.23
+++ loncom/lonnet/perl/lonnet.pm	2000/08/22 15:27:35	1.24
@@ -16,7 +16,7 @@
 #                      Specify name and domain of role author, and role name
 # revokerole (udom,uname,url,role) : Revoke a role for url
 # revokecustomrole (udom,uname,url,rdom,rnam,rolename) : Revoke a custom role
-# appendenv(hash)    : adds hash to session environment
+# appenv(hash)       : adds hash to session environment
 # store(hash)        : stores hash permanently for this url
 # restore            : returns hash for this url
 # eget(namesp,array) : returns hash with keys from array filled in from namesp
@@ -38,6 +38,7 @@
 # 06/26 Ben Tyszka
 # 06/30,07/15,07/17,07/18,07/20,07/21,07/22,07/25 Gerd Kortemeyer
 # 08/14 Ben Tyszka
+# 08/22 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -193,7 +194,9 @@ sub appenv {
         chomp($oldenv[$i]);
         if ($oldenv[$i] ne '') {
            my ($name,$value)=split(/=/,$oldenv[$i]);
-	   $newenv{$name}=$value;
+           unless (defined($newenv{$name})) {
+	      $newenv{$name}=$value;
+	   }
         }
     }
     {