--- rat/lonpageflip.pm 2008/12/21 05:00:52 1.75.2.1 +++ rat/lonpageflip.pm 2008/11/20 13:11:43 1.76 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.75.2.1 2008/12/21 05:00:52 raeburn Exp $ +# $Id: lonpageflip.pm,v 1.76 2008/11/20 13:11:43 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,6 +27,48 @@ # 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; use strict; @@ -335,7 +377,7 @@ sub handler { return REDIRECT; } } - $currenturl=~s/^https?\:\/\///; + $currenturl=~s/^http\:\/\///; $currenturl=~s/^[^\/]+//; # # Is the current URL on the map? If not, start with last known URL