version 1.10, 2000/10/04 14:09:01
|
version 1.23, 2001/03/03 00:55:36
|
Line 5
|
Line 5
|
# 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, |
# 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,10/26,10/28, |
# |
# 12/08,12/28, |
|
# 01/15/01 Gerd Kortemeyer |
|
# 02/27/01 Scott Harrison |
|
# 03/02 Gerd Kortemeyer |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
Line 27 sub handler {
|
Line 31 sub handler {
|
# ================================================================== Roles Init |
# ================================================================== Roles Init |
|
|
if ($ENV{'form.selectrole'}) { |
if ($ENV{'form.selectrole'}) { |
foreach $envkey (keys %ENV) { |
&Apache::lonnet::appenv("request.course.id" => '', |
if ($envkey=~/^user\.role\./) { |
"request.course.fn" => '', |
|
"request.course.uri" => '', |
|
"request.course.sec" => '', |
|
"request.role" => 'cm'); |
|
foreach $envkey (keys %ENV) { |
|
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
Line 42 sub handler {
|
Line 51 sub handler {
|
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { $tstatus='expired'; } |
if ($tend<$then) { $tstatus='expired'; } |
if ($tend>$now) { $tstatus='will_not'; } |
if ($tend<$now) { $tstatus='will_not'; } |
} |
} |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
&Apache::lonnet::appenv('request.role' => $trolecode); |
$where=~s/^\///; |
my ($cdom,$cnum)=split(/\//,$where); |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
|
&Apache::lonnet::appenv('request.role' => $trolecode, |
|
'request.course.sec' => $csec); |
if ($cnum) { |
if ($cnum) { |
&Apache::lonuserstate::readmap($where); |
my ($furl,$ferr)= |
$r->internal_redirect($ENV{'form.orgurl'}); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
return OK; |
if (($ENV{'form.orgurl'}) && |
|
($ENV{'form.orgurl'}!~/^\/adm\/flip/)) { |
|
$r->internal_redirect($ENV{'form.orgurl'}); |
|
return OK; |
|
} else { |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
print (<<ENDREDIR); |
|
<head><title>Entering Course</title> |
|
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl"> |
|
</head> |
|
<html> |
|
<body bgcolor="#FFFFFF"> |
|
Entering course ... |
|
</body> |
|
</html> |
|
ENDREDIR |
|
return OK; |
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
|
|
# =============================================================== No Roles Init |
# =============================================================== No Roles Init |
Line 70 sub handler {
|
Line 99 sub handler {
|
<head> |
<head> |
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head><body bgcolor="#FFFFFF"> |
</head><body bgcolor="#FFFFFF"> |
|
<script>window.focus();</script> |
ENDHEADER |
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( |
if ($ENV{'user.error.msg'}) { |
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
$r->log_reason( |
|
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
|
} |
|
|
# ---------------------------------------------------------------- Who is this? |
# ---------------------------------------------------------------- Who is this? |
|
|
Line 88 ENDHEADER
|
Line 120 ENDHEADER
|
} |
} |
} |
} |
|
|
# ---------------------------------------------- Get cached course descriptions |
|
|
|
my %cdes=Apache::lonnet::dump('coursedescriptions'); |
|
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
Line 123 ENDHEADER
|
Line 151 ENDHEADER
|
} else { |
} else { |
$r->print("<h2>Enter a Course</h2>\n"); |
$r->print("<h2>Enter a Course</h2>\n"); |
} |
} |
$r->print('<form method=post action="'.$r->uri.'">'); |
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) { |
|
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; |
|
} |
|
$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
} |
} |
# ----------------------------------------------------------------------- Table |
# ----------------------------------------------------------------------- Table |
$r->print('<table><tr>'); |
$r->print('<table><tr>'); |
unless ($nochoose) { $r->print('<th> </th>'); } |
unless ($nochoose) { $r->print('<th> </th>'); } |
if ($advanced) { |
|
$r->print('<th>User Role</th><th colspan=2>Extent</th>'. |
$r->print('<th>User Role</th><th colspan=2>Extent</th>'. |
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
} else { |
|
$r->print('<th>Course</th></tr>'."\n"); |
|
} |
|
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
Line 155 ENDHEADER
|
Line 182 ENDHEADER
|
$tpstart=localtime($tstart); |
$tpstart=localtime($tstart); |
} |
} |
if ($tend) { |
if ($tend) { |
if ($tend<$then) { $tstatus='expired'; } |
if ($tend<$then) { |
if ($tend>$now) { $tstatus='will_not'; } |
$tstatus='expired'; |
|
} elsif ($tend<$now) { |
|
$tstatus='will_not'; |
|
} |
$tpend=localtime($tend); |
$tpend=localtime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($ENV{'request.role'} eq $trolecode) { |
Line 176 ENDHEADER
|
Line 206 ENDHEADER
|
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tremark.='Expired after logout. '; |
$tremark.='Expired after logout. '; |
} elsif ($tstatus eq 'selected') { |
} elsif ($tstatus eq 'selected') { |
$tbg='#33FF33'; |
$tbg='#11CC55'; |
$tremark.='Currently selected. '; |
$tremark.='Currently selected. '; |
} |
} |
my $trole; |
my $trole; |
Line 189 ENDHEADER
|
Line 219 ENDHEADER
|
} |
} |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tdom,$trest)= |
my ($tdom,$trest,$tsection)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
my $tcourseid=$tdom.'/'.$trest; |
if ($tsection) { |
if ($cdes{$tcourseid}) { |
$ttype.='<br>Section/Group: '.$tsection; |
$twhere=$cdes{$tcourseid}; |
} |
|
my $tcourseid=$tdom.'_'.$trest; |
|
if ($ENV{'course.'.$tcourseid.'.description'}) { |
|
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
} else { |
} else { |
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$twhere=$newhash{'description'}; |
$twhere=$newhash{'description'}; |
} else { |
} else { |
$twhere='Currently not available'; |
$twhere='Currently not available'; |
|
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
$cdes{$tcourseid}=$twhere; |
} |
} |
|
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 228 ENDHEADER
|
Line 261 ENDHEADER
|
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
} |
} |
} |
} |
|
my $tremark=''; |
|
if ($ENV{'request.role'} eq 'cm') { |
|
$r->print('<tr bgcolor="#11CC55">'); |
|
$tremark='Currently selected.'; |
|
} else { |
|
$r->print('<tr bgcolor="#77FF77">'); |
|
} |
|
unless ($nochoose) { |
|
if ($ENV{'request.role'} ne 'cm') { |
|
$r->print('<td><input type=submit value=Select name="cm"></td>'); |
|
} else { |
|
$r->print('<td> </td>'); |
|
} |
|
} |
|
$r->print('<td colspan=5>No role specified'. |
|
'</td><td>'.$tremark.' </td></tr>'."\n"); |
|
|
$r->print('</table>'); |
$r->print('</table>'); |
unless ($nochoose) { |
unless ($nochoose) { |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
# ------------------------------------------------------------ Priviledges Info |
# ------------------------------------------------------------ Privileges Info |
if ($advanced) { |
if ($advanced) { |
$r->print('<hr><h2>Priviledges</h2>'); |
$r->print('<hr><h2>Current Privileges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
if ($envkey=~/^user\.priv\./) { |
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) { |
my ($dum1,$dum2,@pwhere)=split(/\./,$envkey); |
my $where=$envkey; |
my $where=join('.',@pwhere); |
$where=~s/^user\.priv\.$ENV{'request.role'}\.//; |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tdom,$trest)= |
my ($tdom,$trest,$tsec)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$cdes{$tdom.'/'.$trest}; |
$twhere=$ENV{'course.'.$tdom.'_'.$trest.'.description'}; |
|
if ($tsec) { |
|
$twhere.=' (Section/Group: '.$tsec.')'; |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 278 ENDHEADER
|
Line 330 ENDHEADER
|
} |
} |
} |
} |
} |
} |
# -------------------------------------------------------------- Debug - remove |
|
|
|
$->print("<hr><h1>Debugging</h1><hr>\n"); |
|
|
|
foreach $envkey (sort keys %ENV) { |
|
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
|
} |
|
|
|
# ------------------------------------------------------------------- End Debug |
|
|
|
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
return OK; |
return OK; |