version 1.60, 2005/11/15 18:39:45
|
version 1.61, 2006/01/09 18:39:31
|
Line 96 sub move {
|
Line 96 sub move {
|
while ($hash{'type_'.$rid} eq 'finish') { |
while ($hash{'type_'.$rid} eq 'finish') { |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
my $thiscond= |
my $thiscond= |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
if ($thiscond>=$mincond) { |
if ($thiscond>=$mincond) { |
if ($posnext) { |
if ($posnext) { |
$posnext.=','.$_.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
} else { |
} else { |
$posnext=$_.':'.$thiscond; |
$posnext=$id.':'.$thiscond; |
} |
} |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
if ($thiscond>$mincond) { $mincond=$thiscond; } |
} |
} |
} split(/\,/,$hash{'to_'.$rid}); |
} |
map { |
foreach my $id (split(/\,/,$posnext)) { |
my ($linkid,$condval)=split(/\:/,$_); |
my ($linkid,$condval)=split(/\:/,$id); |
if ($condval>=$mincond) { |
if ($condval>=$mincond) { |
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
$next=&addrid($next,$hash{'goesto_'.$linkid}, |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
$hash{'condid_'.$hash{'undercond_'.$linkid}}); |
} |
} |
} split(/\,/,$posnext); |
} |
if ($hash{'is_map_'.$next}) { |
if ($hash{'is_map_'.$next}) { |
# This jumps to the beginning of a new map (going down level) |
# This jumps to the beginning of a new map (going down level) |
if ( |
if ( |
Line 130 sub move {
|
Line 130 sub move {
|
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) { |
# This comes up from a map (coming up one level); |
# This comes up from a map (coming up one level); |
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
$mapurl=$hash{'map_id_'.(split(/\./,$next))[0]}; |
} |
} |
} elsif ($direction eq 'back') { |
} elsif ($direction eq 'back') { |
# ------------------------------------------------------------------- Backwards |
# ------------------------------------------------------------------- Backwards |
while ($hash{'type_'.$rid} eq 'start') { |
while ($hash{'type_'.$rid} eq 'start') { |