loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.240.2.14, 2010/01/18 17:16:58	version 1.240.2.15, 2010/08/09 23:39:59
Line 455 ENDENTERKEY	Line 455 ENDENTERKEY
&Apache::lonnet::appenv({'request.role.adv'=>$tadv});	&Apache::lonnet::appenv({'request.role.adv'=>$tadv});
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	if ($custommenu) {
	unless (($ferr) \|\| ($env{'form.switchrole'})) {
	&Apache::lonnet::put('nohist_crslastlogin',{$env{'user.name'}.':'.$env{'user.domain'}.':'.$csec.':'.$role => $now},
	$cdom,$cnum);
	}
	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/)) {
my $dest=$env{'form.orgurl'};	my $dest=$env{'form.orgurl'};