[BACK]Return to lonroles.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.4 and 1.5

version 1.4, 2000/07/25 15:40:11 version 1.5, 2000/09/06 14:25:17
Line 4 Line 4
 # (Login Screen  # (Login Screen
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)  # 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)  # 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;  package Apache::lonroles;
   
Line 31  ENDHEADER Line 31  ENDHEADER
 # ------------------------------------------ Get Error Message from Environment  # ------------------------------------------ Get Error Message from Environment
   
     my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});      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  # -------------------------------------------------------- Generate Page Output
   
Line 40  ENDHEADER Line 42  ENDHEADER
                   Apache::lonnet::plaintext($priv)."\n");                    Apache::lonnet::plaintext($priv)."\n");
         $r->print("Resource: $fn\n");          $r->print("Resource: $fn\n");
         $r->print("Action  : $msg\n</pre><hr>");          $r->print("Action  : $msg\n</pre><hr>");
         $r->log_reason(  
  "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);  
     } else {      } else {
         $r->print("<h1>LON-CAPA User Roles</h1>");          $r->print("<h1>LON-CAPA User Roles</h1>");
     }      }
Line 155  ENDHEADER Line 155  ENDHEADER
                   my $trestr='';                    my $trestr='';
                   if ($restr ne 'F') {                    if ($restr ne 'F') {
                       my $i;                        my $i;
                         $trestr.=' (';
                       for ($i=0;$i<length($restr);$i++) {                        for ($i=0;$i<length($restr);$i++) {
          $trestr=' ('.           $trestr.=
                            Apache::lonnet::plaintext(substr($restr,$i,1)).') ';                             Apache::lonnet::plaintext(substr($restr,$i,1));
        }                           if ($i<length($restr)-1) { $trestr.=', '; }
         }
                         $trestr.=')';
                   }                    }
                   $r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.                    $r->print('<li>'.Apache::lonnet::plaintext($prv).$trestr.
                             '</li>');                              '</li>');
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>