version 1.14, 2001/01/10 19:51:01
|
version 1.17, 2001/07/05 19:38:23
|
Line 12
|
Line 12
|
# |
# |
# 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 Gerd Kortemeyer |
# 10/01/01,05/01,05/28,07/05 Gerd Kortemeyer |
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 39 sub addrid {
|
Line 39 sub addrid {
|
return $current; |
return $current; |
} |
} |
|
|
|
sub move { |
|
my ($rid,$mapurl,$direction)=@_; |
|
|
|
my $next=''; |
|
|
|
my $mincond=1; |
|
my $posnext=''; |
|
if ($direction eq 'forward') { |
|
# --------------------------------------------------------------------- Forward |
|
if ($hash{'type_'.$rid} eq 'finish') { |
|
$rid=$hash{'ids_/res/'.$mapurl}; |
|
} |
|
map { |
|
my $thiscond= |
|
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
|
if ($thiscond>=$mincond) { |
|
if ($posnext) { |
|
$posnext.=','.$_.':'.$thiscond; |
|
} else { |
|
$posnext=$_.':'.$thiscond; |
|
} |
|
if ($thiscond>$mincond) { $mincond=$thiscond; } |
|
} |
|
} split(/\,/,$hash{'to_'.$rid}); |
|
map { |
|
my ($linkid,$condval)=split(/\:/,$_); |
|
if ($condval>=$mincond) { |
|
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
|
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
|
} |
|
} split(/\,/,$posnext); |
|
if ($hash{'is_map_'.$next}) { |
|
if ( |
|
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
|
$mapurl=$hash{'src_'.$next}; |
|
$next=$hash{'map_start_'.$hash{'src_'.$next}}; |
|
} |
|
} |
|
} elsif ($direction eq 'back') { |
|
# ------------------------------------------------------------------- Backwards |
|
if ($hash{'type_'.$rid} eq 'start') { |
|
$rid=$hash{'ids_/res/'.$mapurl}; |
|
} |
|
map { |
|
my $thiscond= |
|
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
|
if ($thiscond>=$mincond) { |
|
if ($posnext) { |
|
$posnext.=','.$_.':'.$thiscond; |
|
} else { |
|
$posnext=$_.':'.$thiscond; |
|
} |
|
if ($thiscond>$mincond) { $mincond=$thiscond; } |
|
} |
|
} split(/\,/,$hash{'from_'.$rid}); |
|
map { |
|
my ($linkid,$condval)=split(/\:/,$_); |
|
if ($condval>=$mincond) { |
|
$next=&addrid($next,$hash{'comesfrom_'.$linkid}, |
|
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
|
} |
|
} split(/\,/,$posnext); |
|
if ($hash{'is_map_'.$next}) { |
|
if ( |
|
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
|
$mapurl=$hash{'src_'.$next}; |
|
$next=$hash{'map_finish_'.$hash{'src_'.$next}}; |
|
} |
|
} |
|
} |
|
|
|
return ($next,$mapurl); |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 85 sub handler {
|
Line 159 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 112 sub handler {
|
Line 187 sub handler {
|
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
my $rid=$hash{'map_pc_/res/'.$mapurl}.'.'.$mapnum; |
my $rid=$hash{'map_pc_/res/'.$mapurl}.'.'.$mapnum; |
|
|
my $next=''; |
# ------------------------------------------------- Move forward, backward, etc |
my $mincond=1; |
|
my $posnext=''; |
($next,$mapurl)=&move($rid,$mapurl,$direction); |
if ($direction eq 'forward') { |
# -------------------------------------- Do we have one and only one empty URL? |
# --------------------------------------------------------------------- Forward |
my $safecount=0; |
if ($hash{'type_'.$rid} eq 'finish') { |
while (($next) && ($next!~/\,/) && (!$hash{'src_'.$next}) |
$rid=$hash{'ids_/res/'.$mapurl}; |
&& ($safecount<25)) { |
} |
($next,$mapurl)=&move($next,$mapurl,$direction); |
map { |
$safecount++; |
my $thiscond= |
} |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
|
if ($thiscond>=$mincond) { |
|
if ($posnext) { |
|
$posnext.=','.$_.':'.$thiscond; |
|
} else { |
|
$posnext=$_.':'.$thiscond; |
|
} |
|
if ($thiscond>$mincond) { $mincond=$thiscond; } |
|
} |
|
} split(/\,/,$hash{'to_'.$rid}); |
|
map { |
|
my ($linkid,$condval)=split(/\:/,$_); |
|
if ($condval>=$mincond) { |
|
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
|
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
|
} |
|
} split(/\,/,$posnext); |
|
if ($hash{'is_map_'.$next}) { |
|
if ( |
|
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
|
$mapurl=$hash{'src_'.$next}; |
|
$next=$hash{'map_start_'.$hash{'src_'.$next}}; |
|
} |
|
} |
|
} elsif ($direction eq 'back') { |
|
# ------------------------------------------------------------------- Backwards |
|
if ($hash{'type_'.$rid} eq 'start') { |
|
$rid=$hash{'ids_/res/'.$mapurl}; |
|
} |
|
map { |
|
my $thiscond= |
|
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
|
if ($thiscond>=$mincond) { |
|
if ($posnext) { |
|
$posnext.=','.$_.':'.$thiscond; |
|
} else { |
|
$posnext=$_.':'.$thiscond; |
|
} |
|
if ($thiscond>$mincond) { $mincond=$thiscond; } |
|
} |
|
} split(/\,/,$hash{'from_'.$rid}); |
|
map { |
|
my ($linkid,$condval)=split(/\:/,$_); |
|
if ($condval>=$mincond) { |
|
$next=&addrid($next,$hash{'comesfrom_'.$linkid}, |
|
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
|
} |
|
} split(/\,/,$posnext); |
|
if ($hash{'is_map_'.$next}) { |
|
if ( |
|
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
|
$mapurl=$hash{'src_'.$next}; |
|
$next=$hash{'map_finish_'.$hash{'src_'.$next}}; |
|
} |
|
} |
|
} elsif ($direction eq 'up') { |
|
# -------------------------------------------------------------------------- Up |
|
} elsif ($direction eq 'down') { |
|
# ------------------------------------------------------------------------ Down |
|
} |
|
# ----------------------------------------------------- Check out possibilities |
# ----------------------------------------------------- Check out possibilities |
if ($next) { |
if ($next) { |
@possibilities=split(/\,/,$next); |
@possibilities=split(/\,/,$next); |
Line 252 ENDSTART
|
Line 267 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 |