loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.32, 2001/12/21 16:57:54	version 1.33, 2001/12/29 21:09:47
Line 39	Line 39
# 02/27/01 Scott Harrison	# 02/27/01 Scott Harrison
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer	# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
# 12/21 Scott Harrison	# 12/21 Scott Harrison
	# 12/29 Gerd Kortemeyer
#	#
###	###

Line 64 sub handler {	Line 65 sub handler {
# ================================================================== Roles Init	# ================================================================== Roles Init

if ($ENV{'form.selectrole'}) {	if ($ENV{'form.selectrole'}) {
	if ($ENV{'request.course.id'}) {
	my %temp=('logout_'.$ENV{'request.course.id'} => time);
	&Apache::lonnet::put('email_status',\%temp);
	}
&Apache::lonnet::appenv("request.course.id" => '',	&Apache::lonnet::appenv("request.course.id" => '',
"request.course.fn" => '',	"request.course.fn" => '',
"request.course.uri" => '',	"request.course.uri" => '',