loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.256.2.6.2.1, 2012/02/08 00:22:15	version 1.256.2.6.2.2, 2012/02/08 16:27:35
Line 514 ENDENTERKEY	Line 514 ENDENTERKEY
my $msg;	my $msg;
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	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'};