loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.136, 2005/11/15 21:39:28	version 1.137, 2005/11/21 19:08:24
Line 126 sub handler {	Line 126 sub handler {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$where=~s/^\///;	$where=~s/^\///;
my ($cdom,$cnum,$csec)=split(/\//,$where);	my ($cdom,$cnum,$csec)=split(/\//,$where);
	# check for course groups
	my %coursegroups = &Apache::lonnet::get_active_groups(
	$env{'user.domain'},$env{'user.name'},$cdom, $cnum);
	my $cgrps = join(':',keys(%coursegroups));

# store role if recent_role list being kept	# store role if recent_role list being kept
if ($env{'environment.recentroles'}) {	if ($env{'environment.recentroles'}) {
&Apache::lonhtmlcommon::store_recent('roles',	&Apache::lonhtmlcommon::store_recent('roles',
Line 227 ENDENTERKEY	Line 232 ENDENTERKEY
&Apache::lonnet::appenv(	&Apache::lonnet::appenv(
'request.role' => $trolecode,	'request.role' => $trolecode,
'request.role.domain' => $cdom,	'request.role.domain' => $cdom,
'request.course.sec' => $csec);	'request.course.sec' => $csec,
	'request.course.groups' => $cgrps);
my $tadv=0;	my $tadv=0;
my $msg=&mt('Entering course ...');	my $msg=&mt('Entering course ...');