loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.110, 2010/09/23 23:47:33	version 1.111, 2011/02/24 23:37:50
Line 82 sub success {	Line 82 sub success {
my $now=time;	my $now=time;
my $then=$env{'user.login.time'};	my $then=$env{'user.login.time'};
my $refresh=$env{'user.refresh.time'};	my $refresh=$env{'user.refresh.time'};
	my $update=$env{'user.update.time'};
	if (!$update) {
	$update = $then;
	}
if (exists($env{$envkey})) {	if (exists($env{$envkey})) {
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus);	my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus);
&Apache::lonnet::role_status($envkey,$then,$refresh,$now,\$role,\$where,	&Apache::lonnet::role_status($envkey,$update,$refresh,$now,\$role,\$where,
\$trolecode,\$tstatus,\$tstart,\$tend);	\$trolecode,\$tstatus,\$tstart,\$tend);
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$destination .= ($destination =~ /\?/) ? '&' : '?';	$destination .= ($destination =~ /\?/) ? '&' : '?';
Line 111 sub success {	Line 115 sub success {
$destination .= '&destinationurl='.$destsymb;	$destination .= '&destinationurl='.$destsymb;
}	}
}	}
	if ($destination =~ m{^/adm/roles}) {
	$destination .= ($destination =~ /\?/) ? '&' : '?';
	$destination .= 'source=login';
	}

my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="loncapaclient";');	my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="loncapaclient";');
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />';	my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />';