loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.157, 2006/06/07 20:52:16	version 1.159, 2006/06/26 18:56:37
Line 149 sub handler {	Line 149 sub handler {

# store role if recent_role list being kept	# store role if recent_role list being kept
if ($env{'environment.recentroles'}) {	if ($env{'environment.recentroles'}) {
	my %frozen_roles =
	&Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
&Apache::lonhtmlcommon::store_recent('roles',	&Apache::lonhtmlcommon::store_recent('roles',
$trolecode,' ');	$trolecode,' ',$frozen_roles{$trolecode});
}	}


Line 514 ENDHEADER	Line 516 ENDHEADER
if ($tremark) { $tremark.='<br />'; }	if ($tremark) { $tremark.='<br />'; }
$tremark.=&mt('Defined by ').$rauthor.	$tremark.=&mt('Defined by ').$rauthor.
&mt(' at ').$rdomain.'.';	&mt(' at ').$rdomain.'.';
$trole=$rrole;	}
} else {	$trole=Apache::lonnet::plaintext($role);
$trole=Apache::lonnet::plaintext($role);
}
my $ttype;	my $ttype;
my $twhere;	my $twhere;
my ($tdom,$trest,$tsection)=	my ($tdom,$trest,$tsection)=