version 1.48, 2004/10/18 22:24:00
|
version 1.51, 2005/02/17 09:09:57
|
Line 26
|
Line 26
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Page Handler |
|
# |
|
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30 Gerd Kortemeyer) |
|
# 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/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
|
# 11/14,11/16, |
|
# 10/01/01,05/01,05/28,07/05 Gerd Kortemeyer |
|
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 82 sub fullmove {
|
Line 71 sub fullmove {
|
return($rid,$mapurl); |
return($rid,$mapurl); |
} |
} |
|
|
|
sub hash_src { |
|
my ($id)=@_; |
|
if ($hash{'encrypted_'.$id}) { |
|
return &Apache::lonenc::encrypted($hash{'src_'.$id}); |
|
} |
|
return $hash{'src_'.$id}; |
|
} |
|
|
sub move { |
sub move { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
my $startoutrid=$rid; |
my $startoutrid=$rid; |
Line 182 sub handler {
|
Line 179 sub handler {
|
# ------------------------------------------- Set document type for header only |
# ------------------------------------------- Set document type for header only |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
my %cachehash=(); |
my %cachehash=(); |
Line 198 sub handler {
|
Line 195 sub handler {
|
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
$ENV{'form.postdata'}=~/(\w+)\:(.*)/; |
my $direction=$1; |
my $direction=$1; |
my $currenturl=$2; |
my $currenturl=$2; |
|
if ($currenturl=~m|^/enc/|) { |
|
$currenturl=&Apache::lonenc::unencrypted($currenturl); |
|
} |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
Line 213 sub handler {
|
Line 213 sub handler {
|
my ($murl,$fn)=&Apache::lonnet::decode_symb($last); |
my ($murl,$fn)=&Apache::lonnet::decode_symb($last); |
my $id; |
my $id; |
($murl,$id,$fn)=&Apache::lonnet::decode_symb(&Apache::lonnet::symbread($fn)); |
($murl,$id,$fn)=&Apache::lonnet::decode_symb(&Apache::lonnet::symbread($fn)); |
$newloc=$hash{'src_'. |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id}; |
$newloc=$hash{'src_'.$id}; |
unless ($newloc) { $newloc='/adm/noidea.html'; } |
if ($newloc) { |
|
if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); } |
|
|
|
} else { |
|
$newloc='/adm/noidea.html'; |
|
} |
untie %hash; |
untie %hash; |
} else { |
} else { |
$newloc='/adm/noidea.html'; |
$newloc='/adm/noidea.html'; |
} |
} |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
|
|
Line 241 sub handler {
|
Line 246 sub handler {
|
if ($last) { |
if ($last) { |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[1]); |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[1]); |
} else { |
} else { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
return REDIRECT; |
return REDIRECT; |
Line 269 sub handler {
|
Line 274 sub handler {
|
my $safecount=0; |
my $safecount=0; |
while (($next) && ($next!~/\,/) && |
while (($next) && ($next!~/\,/) && |
((!$hash{'src_'.$next}) || |
((!$hash{'src_'.$next}) || |
($ENV{'request.role.adv'}) && $hash{'randomout_'.$next})) |
((!$ENV{'request.role.adv'}) && $hash{'randomout_'.$next})) |
&& ($safecount<10000)) { |
&& ($safecount<10000)) { |
($next,$endupmap)=&move($next,$endupmap,$direction); |
($next,$endupmap)=&move($next,$endupmap,$direction); |
$safecount++; |
$safecount++; |
Line 280 sub handler {
|
Line 285 sub handler {
|
@possibilities=split(/\,/,$next); |
@possibilities=split(/\,/,$next); |
if ($#possibilities==0) { |
if ($#possibilities==0) { |
# ---------------------------------------------- Only one possibility, redirect |
# ---------------------------------------------- Only one possibility, redirect |
$redirecturl=$hash{'src_'.$next}; |
$redirecturl=&hash_src($next); |
$cachehash{$endupmap} |
$cachehash{$endupmap} |
{&Apache::lonnet::declutter($redirecturl)} |
{&Apache::lonnet::declutter($redirecturl)} |
=(split(/\./,$next))[1]; |
=(split(/\./,$next))[1]; |
Line 341 sub handler {
|
Line 346 sub handler {
|
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
} |
} |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |
'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
# --------------------------------------------------------- There was a problem |
# --------------------------------------------------------- There was a problem |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
if ($#possibilities>0) { |
if ($#possibilities>0) { |
my $bodytag= |
my $bodytag= |