--- loncom/auth/lonroles.pm 2004/08/23 18:57:16 1.98 +++ 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.98 2004/08/23 18:57:16 albertel Exp $ +# $Id: lonroles.pm,v 1.100 2004/11/01 23:23:33 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -88,7 +88,8 @@ sub handler { 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" => '', @@ -605,7 +606,7 @@ ENDHEADER unless ($nochoose) { $r->print(' '); } $r->print(''.&mt('User Role').''.&mt('Extent'). ''.&mt('Start').''.&mt('End').''. - &mt('Remark').''."\n"); + &mt('Remarks and Calendar Announcements').''."\n"); my $doheaders=-1; foreach my $type ('Construction Space','Course','Domain','System') { my $haverole=0; @@ -620,7 +621,7 @@ ENDHEADER my $output; foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) { if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { - $output.=&mt($roletext{$sortrole{$which}}); + $output.=$roletext{$sortrole{$which}}; } } if ($output) {