version 1.52, 2005/03/01 00:22:57
|
version 1.53, 2005/04/07 06:56:27
|
Line 31 package Apache::lonpageflip;
|
Line 31 package Apache::lonpageflip;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet(); |
use Apache::lonnet; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 63 sub addrid {
|
Line 63 sub addrid {
|
|
|
sub fullmove { |
sub fullmove { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
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)) { |
($rid,$mapurl)=&move($rid,$mapurl,$direction); |
($rid,$mapurl)=&move($rid,$mapurl,$direction); |
untie(%hash); |
untie(%hash); |
Line 191 sub handler {
|
Line 191 sub handler {
|
my $next=''; |
my $next=''; |
my @possibilities=(); |
my @possibilities=(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); |
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; |
my $currenturl=$2; |
my $currenturl=$2; |
if ($currenturl=~m|^/enc/|) { |
if ($currenturl=~m|^/enc/|) { |
Line 202 sub handler {
|
Line 202 sub handler {
|
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
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)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
} |
} |
my $newloc; |
my $newloc; |
if (($last) && (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640))) { |
&GDBM_READER(),0640))) { |
my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last); |
my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last); |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
Line 236 sub handler {
|
Line 236 sub handler {
|
# |
# |
unless (&Apache::lonnet::is_on_map($currenturl)) { |
unless (&Apache::lonnet::is_on_map($currenturl)) { |
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)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |
Line 260 sub handler {
|
Line 260 sub handler {
|
[&Apache::lonnet::declutter($currenturl),$mapnum]; |
[&Apache::lonnet::declutter($currenturl),$mapnum]; |
|
|
# ============================================================ 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)) { |
my $rid=$hash{'map_pc_'.&Apache::lonnet::clutter($startoutmap)}. |
my $rid=$hash{'map_pc_'.&Apache::lonnet::clutter($startoutmap)}. |
'.'.$mapnum; |
'.'.$mapnum; |
Line 272 sub handler {
|
Line 272 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 329 sub handler {
|
Line 329 sub handler {
|
&Apache::lonnet::linklog($redirecturl,$currenturl); |
&Apache::lonnet::linklog($redirecturl,$currenturl); |
} |
} |
# ------------------------------------------------- Check for critical messages |
# ------------------------------------------------- Check for critical messages |
if ((time-$ENV{'user.criticalcheck.time'})>300) { |
if ((time-$env{'user.criticalcheck.time'})>300) { |
my @what=&Apache::lonnet::dump |
my @what=&Apache::lonnet::dump |
('critical',$ENV{'user.domain'}, |
('critical',$env{'user.domain'}, |
$ENV{'user.name'}); |
$env{'user.name'}); |
if ($what[0]) { |
if ($what[0]) { |
if (($what[0] ne 'con_lost') && |
if (($what[0] ne 'con_lost') && |
($what[0]!~/^error\:/)) { |
($what[0]!~/^error\:/)) { |
Line 394 ENDNONE
|
Line 394 ENDNONE
|
} |
} |
} else { |
} else { |
# ------------------------------------------------- Problem, could not tie hash |
# ------------------------------------------------- Problem, could not tie hash |
$ENV{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
$env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} else { |
} else { |
Line 406 ENDNONE
|
Line 406 ENDNONE
|
} |
} |
} else { |
} else { |
# -------------------------- Class was not initialized or page fliped strangely |
# -------------------------- Class was not initialized or page fliped strangely |
$ENV{'user.error.msg'}="/adm/flip:bre:0:0:Choose Course"; |
$env{'user.error.msg'}="/adm/flip:bre:0:0:Choose Course"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |