loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.11, 2000/10/04 15:29:50	version 1.12, 2000/10/05 19:15:34
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 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 77 ENDHEADER	Line 77 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?