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" => '', |