version 1.51, 2005/02/17 09:09: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,$fn)=&Apache::lonnet::decode_symb($last); |
my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last); |
my $id; |
|
($murl,$id,$fn)=&Apache::lonnet::decode_symb(&Apache::lonnet::symbread($fn)); |
|
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id; |
$newloc=$hash{'src_'.$id}; |
$newloc=$hash{'src_'.$id}; |
if ($newloc) { |
if ($newloc) { |
Line 238 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); |
} |
} |
if ($last) { |
if ($last) { |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[1]); |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]); |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
Line 257 sub handler {
|
Line 255 sub handler {
|
if ($position=Apache::lonnet::symbread($currenturl)) { |
if ($position=Apache::lonnet::symbread($currenturl)) { |
# ------------------------------------------------------------------------- Yes |
# ------------------------------------------------------------------------- Yes |
my ($startoutmap,$mapnum,$thisurl)=&Apache::lonnet::decode_symb($position); |
my ($startoutmap,$mapnum,$thisurl)=&Apache::lonnet::decode_symb($position); |
$cachehash{$startoutmap}{$thisurl}=$mapnum; |
$cachehash{$startoutmap}{$thisurl}=[$thisurl,$mapnum]; |
$cachehash{$startoutmap}{'last_known'}= |
$cachehash{$startoutmap}{'last_known'}= |
&Apache::lonnet::declutter($currenturl); |
[&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 274 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 286 sub handler {
|
Line 284 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{$endupmap} |
$cachehash{$endupmap}{$redirecturl}= |
{&Apache::lonnet::declutter($redirecturl)} |
[$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 |
$multichoice=1; |
$multichoice=1; |
Line 303 sub handler {
|
Line 300 sub handler {
|
$second.'___'.$symbSrc); |
$second.'___'.$symbSrc); |
|
|
my ($choicemap,$choiceres)=split(/\./,$_); |
my ($choicemap,$choiceres)=split(/\./,$_); |
$cachehash |
my $map=&Apache::lonnet::declutter($hash{'src_'.$choicemap}); |
{&Apache::lonnet::declutter($hash{'src_'.$choicemap})} |
my $url=$multichoicehash{'src_'.$_}; |
{&Apache::lonnet::declutter( |
$cachehash{$map}{$url}=[$url,$choiceres]; |
$multichoicehash |
|
{'src_'.$_} |
|
)} |
|
=$choiceres; |
|
} @possibilities; |
} @possibilities; |
} |
} |
} else { |
} else { |
Line 319 sub handler {
|
Line 312 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{$startoutmap}{'last_direction'}=$direction; |
$cachehash{$startoutmap}{'last_direction'}=[$direction,'notasymb']; |
foreach my $thismap (keys %cachehash) { |
foreach my $thismap (keys %cachehash) { |
&Apache::lonnet::symblist($thismap,%{$cachehash{$thismap}}); |
my $mapnum=$cachehash{$thismap}->{'mapnum'}; |
|
delete($cachehash{$thismap}->{'mapnum'}); |
|
&Apache::lonnet::symblist($thismap, |
|
%{$cachehash{$thismap}}); |
} |
} |
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |
Line 333 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 398 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 410 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; |
} |
} |
} |
} |