loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2000/09/30 19:19:34	version 1.9, 2000/10/02 21:34:58
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 Gerd Kortemeyer	# 09/04,09/06,09/28,09/29,09/30,10/2 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 26 sub handler {	Line 26 sub handler {
<html>	<html>
<head>	<head>
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head>
<body bgcolor="#FFFFFF">
ENDHEADER	ENDHEADER
	if ($ENV{'form.orgurl'}) {
	$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1; url='.
	$ENV{'form.orgurl'}.'">');
	}
	$r->print('</head><body bgcolor="#FFFFFF">');

my $now=time;	my $now=time;
my $then=$ENV{'user.login.time'};	my $then=$ENV{'user.login.time'};
Line 58 ENDHEADER	Line 61 ENDHEADER
&Apache::lonnet::appenv('request.role' => $trolecode);	&Apache::lonnet::appenv('request.role' => $trolecode);
my ($cdom,$cnum)=split(/\//,$where);	my ($cdom,$cnum)=split(/\//,$where);
if ($cnum) {	if ($cnum) {
$r->print( &Apache::lonuserstate::readmap($where) );	&Apache::lonuserstate::readmap($where);
	$r->print('<h1>Role initialized</h1></body></html>');
	return OK;
}	}
}	}
}	}