version 1.110, 2010/09/23 23:47:33
|
version 1.112, 2011/05/13 01:33:02
|
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.'" />'; |
Line 130 sub success {
|
Line 138 sub success {
|
|
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'wel' => 'Welcome', |
'wel' => 'Welcome', |
'mes' => 'Welcome to the Learning<i>Online</i> Network with CAPA. Please wait while your session is being set up.', |
|
'pro' => 'Login problems?', |
'pro' => 'Login problems?', |
'log' => 'loginproblems.html', |
'log' => 'loginproblems.html', |
); |
); |
|
my $welcome = &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>'); |
$r->print(<<ENDSUCCESS); |
$r->print(<<ENDSUCCESS); |
$start_page |
$start_page |
$windowinfo |
$windowinfo |
<h1>$lt{'wel'}</h1> |
<h1>$lt{'wel'}</h1> |
$lt{'mes'}<p> |
$welcome<p> |
<a href="/adm/$lt{'log'}">$lt{'pro'}</a></p> |
<a href="/adm/$lt{'log'}">$lt{'pro'}</a></p> |
$continuelink |
$continuelink |
$end_page |
$end_page |