--- loncom/auth/lonroles.pm	2001/12/21 16:57:54	1.32
+++ loncom/auth/lonroles.pm	2001/12/29 21:09:47	1.33
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.32 2001/12/21 16:57:54 harris41 Exp $
+# $Id: lonroles.pm,v 1.33 2001/12/29 21:09:47 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,6 +39,7 @@
 # 02/27/01 Scott Harrison
 # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
 # 12/21 Scott Harrison
+# 12/29 Gerd Kortemeyer
 #
 ###
 
@@ -64,6 +65,10 @@ sub handler {
 # ================================================================== Roles Init
 
     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"  => '',
                                "request.course.fn"  => '',
                                "request.course.uri" => '',