version 1.6, 2000/10/11 21:16:29
|
version 1.7, 2000/10/16 20:47:39
|
Line 10
|
Line 10
|
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 10/02 Gerd Kortemeyer) |
# 10/02 Gerd Kortemeyer) |
# |
# |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11 Gerd Kortemeyer |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16 Gerd Kortemeyer |
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 63 sub handler {
|
Line 63 sub handler {
|
my $currenturl=$2; |
my $currenturl=$2; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
|
unless ($currenturl=~/\/res\//) { |
|
my $last; |
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
|
&GDBM_READER,0640)) { |
|
$last=$hash{'last_known'}; |
|
untie(%hash); |
|
} |
|
if ($last) { |
|
$currenturl='/res/'.(split(/\_\_\_/,$last))[1]; |
|
} else { |
|
$r->content_type('text/html'); |
|
$r->header_out(Location => |
|
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
|
} |
|
return REDIRECT; |
|
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
my $position; |
my $position; |
if ($position=Apache::lonnet::symbread($currenturl)) { |
if ($position=Apache::lonnet::symbread($currenturl)) { |
Line 154 sub handler {
|
Line 170 sub handler {
|
untie(%hash); |
untie(%hash); |
# --------------------------------------------------------- Store position info |
# --------------------------------------------------------- Store position info |
$cachehash{'last_direction'}=$direction; |
$cachehash{'last_direction'}=$direction; |
|
$cachehash{'last_known'}=&Apache::lonnet::declutter($currenturl); |
&Apache::lonnet::symblist($mapurl,%cachehash); |
&Apache::lonnet::symblist($mapurl,%cachehash); |
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |