loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.20, 2001/01/15 15:59:52	version 1.22, 2001/02/27 20:44:18
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

package Apache::lonroles;	package Apache::lonroles;

use strict;	use strict;
Line 97 ENDREDIR	Line 98 ENDREDIR
<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
Line 276 ENDHEADER	Line 278 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'}\./) {