version 1.1, 2018/01/12 13:33:38
|
version 1.2, 2018/04/14 02:29:44
|
Line 132 sub handler {
|
Line 132 sub handler {
|
|
|
sub do_redirect { |
sub do_redirect { |
my ($r,$destination) = @_; |
my ($r,$destination) = @_; |
my $windowinfo = Apache::lonhtmlcommon::scripttag('self.name="loncapaclient";'); |
my $windowname = 'loncapaclient'; |
|
if ($env{'request.lti.login'}) { |
|
$windowname .= 'lti'; |
|
} |
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(&Apache::loncommon::start_page('Valid link',$header,$args). |
$r->print(&Apache::loncommon::start_page('Valid link',$header,$args). |
&Apache::lonhtmlcommon::scripttag('self.name="loncapaclient";'). |
&Apache::lonhtmlcommon::scripttag('self.name="'.$windowname.'";'). |
'<h1>'.&mt('Welcome').'</h1>'. |
'<h1>'.&mt('Welcome').'</h1>'. |
'<p>'.&mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>').'</p><p>'. |
'<p>'.&mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>').'</p><p>'. |
'<a href="'.$destination.'">'.&mt('Continue').'</a></p>'. |
'<a href="'.$destination.'">'.&mt('Continue').'</a></p>'. |