--- loncom/auth/lonroles.pm 2006/06/07 20:52:16 1.157 +++ loncom/auth/lonroles.pm 2006/06/26 18:56:37 1.159 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.157 2006/06/07 20:52:16 albertel Exp $ +# $Id: lonroles.pm,v 1.159 2006/06/26 18:56:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -149,8 +149,10 @@ sub handler { # store role if recent_role list being kept if ($env{'environment.recentroles'}) { + my %frozen_roles = + &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'}); &Apache::lonhtmlcommon::store_recent('roles', - $trolecode,' '); + $trolecode,' ',$frozen_roles{$trolecode}); } @@ -514,10 +516,8 @@ ENDHEADER if ($tremark) { $tremark.='
'; } $tremark.=&mt('Defined by ').$rauthor. &mt(' at ').$rdomain.'.'; - $trole=$rrole; - } else { - $trole=Apache::lonnet::plaintext($role); - } + } + $trole=Apache::lonnet::plaintext($role); my $ttype; my $twhere; my ($tdom,$trest,$tsection)=