version 1.77, 2008/11/20 15:19:05
|
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 337 sub handler {
|
Line 338 sub handler {
|
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
# |
# |
# Is the current URL on the map? If not, start with last known URL |
# Is the current URL on the map? If not, start with last known URL |
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}); |
Line 478 $start_page
|
Line 484 $start_page
|
<p> |
<p> |
$lt{'pick'}: |
$lt{'pick'}: |
<p> |
<p> |
<table border=2> |
<table border="2"> |
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr> |
<tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr> |
ENDSTART |
ENDSTART |
foreach my $id (@possibilities) { |
foreach my $id (@possibilities) { |