version 1.79, 2009/04/23 17:31:25
|
version 1.79.6.1, 2010/12/30 21:15:40
|
Line 248 sub first_accessible_resource {
|
Line 248 sub first_accessible_resource {
|
my ($name,$value) = split(/=/,$pair); |
my ($name,$value) = split(/=/,$pair); |
$args{&unescape($name)} = &unescape($value); |
$args{&unescape($name)} = &unescape($value); |
} |
} |
if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) { |
if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) || |
|
(!&Apache::lonnet::allowed('bre',$url,$args{'symb'}))) { |
# Wow, we cannot see this ... move forward to the next one that we can see |
# Wow, we cannot see this ... move forward to the next one that we can see |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward'); |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward'); |
# Build the new URL |
# Build the new URL |
Line 325 sub handler {
|
Line 326 sub handler {
|
untie %hash; |
untie %hash; |
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') { |
if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) { |
&navlaunch($r); |
&navlaunch($r); |
return OK; |
return OK; |
} else { |
} else { |
Line 449 sub handler {
|
Line 450 sub handler {
|
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
} |
} |
|
|
|
if (($redirecturl =~ m{^/adm/navmaps}) && |
|
($env{'environment.remotenavmap'} eq 'on')) { |
|
&navlaunch($r); |
|
return OK; |
|
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |