version 1.16, 2001/05/28 14:21:22
|
version 1.20, 2002/04/11 15:43:40
|
Line 2
|
Line 2
|
# |
# |
# Page flip handler |
# Page flip handler |
# |
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
# (Page Handler |
# (Page Handler |
# |
# |
# (TeX Content Handler |
# (TeX Content Handler |
Line 12
|
Line 36
|
# |
# |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
# 11/14,11/16, |
# 11/14,11/16, |
# 10/01/01,05/01,05/28 Gerd Kortemeyer |
# 10/01/01,05/01,05/28,07/05 Gerd Kortemeyer |
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 132 sub handler {
|
Line 156 sub handler {
|
my $redirecturl=''; |
my $redirecturl=''; |
my $next=''; |
my $next=''; |
my @possibilities=(); |
my @possibilities=(); |
|
|
if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) { |
if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) { |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
my $direction=$1; |
my $direction=$1; |
Line 159 sub handler {
|
Line 182 sub handler {
|
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
unless ($currenturl=~/\/res\//) { |
unless (($currenturl=~/^\/res\//) || |
|
($currenturl=~/^\/adm\/wrapper\//)) { |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
Line 180 sub handler {
|
Line 204 sub handler {
|
if ($position=Apache::lonnet::symbread($currenturl)) { |
if ($position=Apache::lonnet::symbread($currenturl)) { |
# ------------------------------------------------------------------------- Yes |
# ------------------------------------------------------------------------- Yes |
my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
$cachehash{$thisurl}=$mapnum; |
$cachehash{$mapurl}{$thisurl}=$mapnum; |
|
$cachehash{$mapurl}{'last_known'}=&Apache::lonnet::declutter($currenturl); |
|
|
# ============================================================ Tie the big hash |
# ============================================================ Tie the big hash |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
Line 202 sub handler {
|
Line 228 sub handler {
|
if ($#possibilities==0) { |
if ($#possibilities==0) { |
# ---------------------------------------------- Only one possibility, redirect |
# ---------------------------------------------- Only one possibility, redirect |
$redirecturl=$hash{'src_'.$next}; |
$redirecturl=$hash{'src_'.$next}; |
$cachehash{&Apache::lonnet::declutter($redirecturl)} |
$cachehash{$mapurl} |
|
{&Apache::lonnet::declutter($redirecturl)} |
=(split(/\./,$next))[1]; |
=(split(/\./,$next))[1]; |
} else { |
} else { |
# ------------------------ There are multiple possibilities for a next resource |
# ------------------------ There are multiple possibilities for a next resource |
Line 211 sub handler {
|
Line 238 sub handler {
|
$multichoicehash{'src_'.$_}=$hash{'src_'.$_}; |
$multichoicehash{'src_'.$_}=$hash{'src_'.$_}; |
$multichoicehash{'title_'.$_}=$hash{'title_'.$_}; |
$multichoicehash{'title_'.$_}=$hash{'title_'.$_}; |
$multichoicehash{'type_'.$_}=$hash{'type_'.$_}; |
$multichoicehash{'type_'.$_}=$hash{'type_'.$_}; |
$cachehash |
$cachehash{$mapurl} |
{&Apache::lonnet::declutter( |
{&Apache::lonnet::declutter( |
$multichoicehash |
$multichoicehash |
{'src_'.$_} |
{'src_'.$_} |
Line 226 sub handler {
|
Line 253 sub handler {
|
# ----------------- The program must come past this point to untie the big hash |
# ----------------- The program must come past this point to untie the big hash |
untie(%hash); |
untie(%hash); |
# --------------------------------------------------------- Store position info |
# --------------------------------------------------------- Store position info |
$cachehash{'last_direction'}=$direction; |
$cachehash{$mapurl}{'last_direction'}=$direction; |
$cachehash{'last_known'}=&Apache::lonnet::declutter($currenturl); |
foreach my $thismap (keys %cachehash) { |
&Apache::lonnet::symblist($mapurl,%cachehash); |
&Apache::lonnet::symblist($thismap,%{$cachehash{$thismap}}); |
|
} |
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |
# ----------------------------------------------------- There is a URL to go to |
# ----------------------------------------------------- There is a URL to go to |
Line 266 ENDSTART
|
Line 294 ENDSTART
|
$r->print(<<ENDNONE); |
$r->print(<<ENDNONE); |
<head><title>Choose Next Location</title></head> |
<head><title>Choose Next Location</title></head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<img src="/adm/lonKaputt/lonlogo_broken.gif" align=left> |
<img src="/adm/lonIcons/lonlogos.gif" align=right> |
<h1>Sorry!</h1> |
<h1>Sorry!</h1> |
<h2>Next resource could not be identified.</h2> |
<h2>Next resource could not be identified.</h2> |
|
<h3>You probably are at the beginning or the end of the course.</h3> |
</body> |
</body> |
</html> |
</html> |
ENDNONE |
ENDNONE |