--- loncom/auth/lonroles.pm 2004/08/03 18:53:27 1.97 +++ loncom/auth/lonroles.pm 2004/11/01 23:23:33 1.100 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.97 2004/08/03 18:53:27 albertel Exp $ +# $Id: lonroles.pm,v 1.100 2004/11/01 23:23:33 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -84,12 +84,12 @@ 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::delenv('user.state.'.$ENV{'request.course.id'}); + } &Apache::lonnet::appenv("request.course.id" => '', "request.course.fn" => '', "request.course.uri" => '', @@ -606,7 +606,7 @@ ENDHEADER unless ($nochoose) { $r->print('