--- rat/lonpageflip.pm 2006/10/20 22:04:16 1.74 +++ rat/lonpageflip.pm 2009/04/23 17:31:25 1.79 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.74 2006/10/20 22:04:16 albertel Exp $ +# $Id: lonpageflip.pm,v 1.79 2009/04/23 17:31:25 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,6 +27,8 @@ # http://www.lon-capa.org/ # + + package Apache::lonpageflip; use strict; @@ -335,7 +337,7 @@ sub handler { return REDIRECT; } } - $currenturl=~s/^http\:\/\///; + $currenturl=~s/^https?\:\/\///; $currenturl=~s/^[^\/]+//; # # Is the current URL on the map? If not, start with last known URL @@ -444,7 +446,7 @@ sub handler { $redirectsymb=''; } } - &Apache::lonnet::appenv('user.criticalcheck.time'=>time); + &Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); } &Apache::loncommon::content_type($r,'text/html'); @@ -476,7 +478,7 @@ $start_page
$lt{'pick'}:
-
$lt{'titleheader'} | $lt{'type'} |
---|