--- loncom/auth/lonroles.pm 2006/06/07 20:52:16 1.157 +++ loncom/auth/lonroles.pm 2006/06/22 23:22:47 1.158 @@ -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.158 2006/06/22 23:22:47 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}); }