loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.21, 2001/01/17 17:26:01	version 1.23, 2001/03/03 00:55:36
Line 8	Line 8
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,	# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
# 12/08,12/28,	# 12/08,12/28,
# 01/15/01 Gerd Kortemeyer	# 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 180 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 277 ENDHEADER	Line 282 ENDHEADER
unless ($nochoose) {	unless ($nochoose) {
$r->print("</form>\n");	$r->print("</form>\n");
}	}
# ------------------------------------------------------------ Priviledges Info	# ------------------------------------------------------------ Privileges Info
if ($advanced) {	if ($advanced) {
$r->print('<hr><h2>Current Priviledges</h2>');	$r->print('<hr><h2>Current Privileges</h2>');

foreach $envkey (sort keys %ENV) {	foreach $envkey (sort keys %ENV) {
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) {	if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) {