LON-CAPA User Roles
ENDHEADER
# ------------------------------------------ Get Error Message from Environment
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'});
if ($ENV{'user.error.msg'}) {
$r->log_reason(
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
}
# ---------------------------------------------------------------- Who is this?
my $advanced=0;
foreach $envkey (keys %ENV) {
if ($envkey=~/^user\.role\./) {
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey);
if ($role ne 'st') { $advanced=1; }
}
}
# -------------------------------------------------------- Generate Page Output
# --------------------------------------------------------------- Error Header?
if ($error) {
$r->print("LON-CAPA Access Control
");
$r->print("
Access : ".
Apache::lonnet::plaintext($priv)."\n");
$r->print("Resource: $fn\n");
$r->print("Action : $msg\n
");
} else {
$r->print("LON-CAPA User Roles
");
if ($ENV{'user.error.msg'}) {
$r->print(
'You need to choose another user role or '.
'enter a specific course for this function
');
}
}
# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {
if ($advanced) {
$r->print("Assigned User Roles
\n");
} else {
$r->print("Sorry ...
\nThis resource might be part of");
if ($ENV{'request.course.id'}) {
$r->print(' another');
} else {
$r->print(' a certain');
}
$r->print(' course.