version 1.22, 2002/04/11 19:21:52
|
version 1.25, 2002/05/23 15:07:55
|
Line 63 sub addrid {
|
Line 63 sub addrid {
|
return $current; |
return $current; |
} |
} |
|
|
|
sub fullmove { |
|
my ($rid,$mapurl,$direction)=@_; |
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
|
&GDBM_READER,0640)) { |
|
($rid,$mapurl)=&move($rid,$mapurl,$direction); |
|
untie(%hash); |
|
} |
|
return($rid,$mapurl); |
|
} |
|
|
sub move { |
sub move { |
my ($rid,$mapurl,$direction)=@_; |
my ($rid,$mapurl,$direction)=@_; |
|
my $startoutrid=$rid; |
|
|
my $next=''; |
my $next=''; |
|
|
Line 95 sub move {
|
Line 106 sub move {
|
} |
} |
} split(/\,/,$posnext); |
} split(/\,/,$posnext); |
if ($hash{'is_map_'.$next}) { |
if ($hash{'is_map_'.$next}) { |
|
# This jumps to the beginning of a new map (going down level) |
if ( |
if ( |
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
$mapurl=$hash{'src_'.$next}; |
$mapurl=$hash{'src_'.$next}; |
$next=$hash{'map_start_'.$hash{'src_'.$next}}; |
$next=$hash{'map_start_'.$hash{'src_'.$next}}; |
} |
} |
|
} elsif |
|
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
|
# This comes up from a map (coming up one level); |
|
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
} |
} |
} elsif ($direction eq 'back') { |
} elsif ($direction eq 'back') { |
# ------------------------------------------------------------------- Backwards |
# ------------------------------------------------------------------- Backwards |
Line 126 sub move {
|
Line 142 sub move {
|
} |
} |
} split(/\,/,$posnext); |
} split(/\,/,$posnext); |
if ($hash{'is_map_'.$next}) { |
if ($hash{'is_map_'.$next}) { |
|
# This jumps to the end of a new map (going down one level) |
if ( |
if ( |
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') { |
$mapurl=$hash{'src_'.$next}; |
$mapurl=$hash{'src_'.$next}; |
$next=$hash{'map_finish_'.$hash{'src_'.$next}}; |
$next=$hash{'map_finish_'.$hash{'src_'.$next}}; |
} |
} |
|
} elsif |
|
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
|
# This comes back up from a map (going up one level); |
|
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
} |
} |
} |
} |
|
|
return ($next,$mapurl); |
return ($next,$mapurl); |
} |
} |
|
|
Line 205 sub handler {
|
Line 225 sub handler {
|
# ------------------------------------------------------------------------- Yes |
# ------------------------------------------------------------------------- Yes |
my ($startoutmap,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
my ($startoutmap,$mapnum,$thisurl)=split(/\_\_\_/,$position); |
$cachehash{$startoutmap}{$thisurl}=$mapnum; |
$cachehash{$startoutmap}{$thisurl}=$mapnum; |
$cachehash{$startoutmap}{'last_known'}=&Apache::lonnet::declutter($currenturl); |
$cachehash{$startoutmap}{'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', |