--- loncom/auth/lonroles.pm	2000/07/25 15:40:11	1.4
+++ loncom/auth/lonroles.pm	2000/09/06 14:25:17	1.5
@@ -4,7 +4,7 @@
 # (Login Screen
 # 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 Gerd Kortemeyer
+# 1/14,03/06,06/01,07/22,07/24,07/25,09/04,09/06 Gerd Kortemeyer
 #
 package Apache::lonroles;
 
@@ -31,6 +31,8 @@ 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);
 
 # -------------------------------------------------------- Generate Page Output
 
@@ -40,8 +42,6 @@ ENDHEADER
                   Apache::lonnet::plaintext($priv)."\n");
         $r->print("Resource: $fn\n");
         $r->print("Action  : $msg\n</pre><hr>");
-        $r->log_reason(
- "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
     } else {
         $r->print("<h1>LON-CAPA User Roles</h1>");
     }
@@ -155,10 +155,13 @@ ENDHEADER
                   my $trestr='';
                   if ($restr ne 'F') {
                       my $i;
+                      $trestr.=' (';
                       for ($i=0;$i<length($restr);$i++) {
-		         $trestr=' ('.
-                           Apache::lonnet::plaintext(substr($restr,$i,1)).') ';
-		       }
+		         $trestr.=
+                           Apache::lonnet::plaintext(substr($restr,$i,1));
+                         if ($i<length($restr)-1) { $trestr.=', '; }
+		      }
+                      $trestr.=')';
                   }
                   $r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.
                             '</li>');