version 1.75, 2008/03/12 02:45:50
|
version 1.79.6.1, 2010/12/30 21:15:40
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
|
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
use strict; |
use strict; |
Line 246 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 323 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 335 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 447 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 476 $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) { |
Line 528 ENDMENU
|
Line 536 ENDMENU
|
1; |
1; |
__END__ |
__END__ |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::lonpageflip |
|
|
|
=head1 SYNOPSIS |
|
|
|
Deals with forward, backward, and other page flips. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 OVERVIEW |
|
|
|
(empty) |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over cleanup() |
|
|
|
=item addrid() |
|
|
|
=item fullmove() |
|
|
|
=item hash_src() |
|
|
|
=item move() |
|
|
|
=item get_next_possible_move() |
|
|
|
=item navlaunch() |
|
|
|
=item first_accessible_resource() |
|
|
|
=item handler() |
|
|
|
=back |
|
|
|
=cut |
|
|
|
|
|
|