![[BACK]](/icons/back.gif){kind=icon}
Return to lonroles.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
Return to lonroles.pm CVS log | Up to [LON-CAPA] / loncom / auth |
| version 1.366, 2022/07/01 04:05:16 | version 1.367, 2022/10/05 16:11:26 |
|---|---|
| Line 1130 ENDCLOSE | Line 1130 ENDCLOSE |
| $redirect_url .= $where; | $redirect_url .= $where; |
| } | } |
| $redirect_url .= '/'; | $redirect_url .= '/'; |
| if ($env{'form.orgurl'} =~ /^\Q$redirect_url\E/) { | |
| my ($path) = ($env{'form.orgurl'} =~ m{^(.+)/[^/]+$}); | |
| if (($path ne '') && (-e $Apache::lonnet::perlvar{'lonDocRoot'}.$path)) { | |
| $redirect_url = $env{'form.orgurl'}; | |
| } | |
| } | |
| &redirect_user($r,&mt('Entering Authoring Space'), | &redirect_user($r,&mt('Entering Authoring Space'), |
| $redirect_url); | $redirect_url); |
| return OK; | return OK; |