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>'); |