--- loncom/auth/lonroles.pm	2001/12/21 16:57:54	1.32
+++ loncom/auth/lonroles.pm	2002/02/01 12:54:51	1.34
@@ -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.34 2002/02/01 12:54:51 albertel 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" => '',
@@ -303,6 +308,9 @@ ENDHEADER
                         $twhere='Currently not available';
                         $ENV{'course.'.$tcourseid.'.description'}=$twhere;
                     }
+		    if ($trole ne 'st') {
+		      $twhere.="<br />Domain:".$tdom;
+		    }
                 }
 	      }
             } elsif ($tdom) {