version 1.75.2.1, 2008/12/21 05:00:52
|
version 1.76, 2008/11/20 13:11:43
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=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 |
|
|
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
use strict; |
use strict; |
Line 335 sub handler {
|
Line 377 sub handler {
|
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$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 |