version 1.18, 2000/12/08 21:57:25
|
version 1.19, 2000/12/28 21:46:08
|
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,10/5,10/26,10/28,12/08 Gerd Kortemeyer |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28, |
|
# 12/08,12/28 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 47 sub handler {
|
Line 48 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') { |
$where=~s/^\///; |
$where=~s/^\///; |
Line 55 sub handler {
|
Line 56 sub handler {
|
&Apache::lonnet::appenv('request.role' => $trolecode, |
&Apache::lonnet::appenv('request.role' => $trolecode, |
'request.course.sec' => $csec); |
'request.course.sec' => $csec); |
if ($cnum) { |
if ($cnum) { |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
my ($furl,$ferr)= |
|
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if ($ENV{'form.orgurl'}) { |
if ($ENV{'form.orgurl'}) { |
$r->internal_redirect($ENV{'form.orgurl'}); |
$r->internal_redirect($ENV{'form.orgurl'}); |
return OK; |
return OK; |
} |
} else { |
|
$r->internal_redirect($furl); |
|
return OK; |
|
} |
} |
} |
} |
} |
} |
} |
Line 140 ENDHEADER
|
Line 145 ENDHEADER
|
# ----------------------------------------------------------------------- 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 166 ENDHEADER
|
Line 167 ENDHEADER
|
} |
} |
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'; } |
$tpend=localtime($tend); |
$tpend=localtime($tend); |
} |
} |
if ($ENV{'request.role'} eq $trolecode) { |
if ($ENV{'request.role'} eq $trolecode) { |
Line 186 ENDHEADER
|
Line 187 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 243 ENDHEADER
|
Line 244 ENDHEADER
|
} |
} |
my $tremark=''; |
my $tremark=''; |
if ($ENV{'request.role'} eq 'cm') { |
if ($ENV{'request.role'} eq 'cm') { |
$r->print('<tr bgcolor="#33FF33">'); |
$r->print('<tr bgcolor="#11CC55">'); |
$tremark='Currently selected.'; |
$tremark='Currently selected.'; |
} else { |
} else { |
$r->print('<tr bgcolor="#77FF77">'); |
$r->print('<tr bgcolor="#77FF77">'); |
Line 310 ENDHEADER
|
Line 311 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; |