--- loncom/auth/lonroles.pm	2000/10/04 15:29:50	1.11
+++ loncom/auth/lonroles.pm	2000/10/05 19:15:34	1.12
@@ -5,7 +5,7 @@
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
 # 11/23 Gerd Kortemeyer)
 # 1/14,03/06,06/01,07/22,07/24,07/25,
-# 09/04,09/06,09/28,09/29,09/30,10/2 Gerd Kortemeyer
+# 09/04,09/06,09/28,09/29,09/30,10/2,10/5 Gerd Kortemeyer
 #
 package Apache::lonroles;
 
@@ -77,8 +77,10 @@ ENDHEADER
 # ------------------------------------------ Get Error Message from Environment
 
     my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});
-    $r->log_reason(
- "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
+    if ($ENV{'user.error.msg'}) {
+       $r->log_reason(
+     "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
+    }
 
 # ---------------------------------------------------------------- Who is this?