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; |