|
version 1.37, 2022/06/18 02:10:19
|
version 1.38, 2022/06/26 04:03:48
|
|
Line 1074 sub linkprot_session {
|
Line 1074 sub linkprot_session {
|
| &Apache::lonauth::success($r,$uname,$cdom,$uhome,'noredirect'); |
&Apache::lonauth::success($r,$uname,$cdom,$uhome,'noredirect'); |
| $env{'form.origurl'} = $dest; |
$env{'form.origurl'} = $dest; |
| $env{'request.linkprot'} = $itemid.$ltitype.':'.$dest; |
$env{'request.linkprot'} = $itemid.$ltitype.':'.$dest; |
| |
$env{'request.linkprotuser'} = $uname.':'.$cdom; |
| $env{'request.deeplink.login'} = $dest; |
$env{'request.deeplink.login'} = $dest; |
| my $redirecturl = '/adm/switchserver'; |
my $redirecturl = '/adm/switchserver'; |
| if ($otherserver ne '') { |
if ($otherserver ne '') { |
|
Line 1089 sub linkprot_session {
|
Line 1090 sub linkprot_session {
|
| 'username' => $uname, |
'username' => $uname, |
| 'server' => $lonhost, |
'server' => $lonhost, |
| 'linkprot' => $itemid.$ltitype.':'.$dest, |
'linkprot' => $itemid.$ltitype.':'.$dest, |
| |
'linkprotuser' => $uname.':'.$cdom, |
| 'home' => $uhome, |
'home' => $uhome, |
| 'origurl' => $dest, |
'origurl' => $dest, |
| 'deeplink.login' => $dest, |
'deeplink.login' => $dest, |
![[BACK]](/icons/back.gif){kind=icon}
Return to ltiauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lti