version 1.32, 2002/12/02 14:39:02
|
version 1.33, 2002/12/06 14:06:53
|
Line 83 sub move {
|
Line 83 sub move {
|
my $posnext=''; |
my $posnext=''; |
if ($direction eq 'forward') { |
if ($direction eq 'forward') { |
# --------------------------------------------------------------------- Forward |
# --------------------------------------------------------------------- Forward |
if ($hash{'type_'.$rid} eq 'finish') { |
while ($hash{'type_'.$rid} eq 'finish') { |
$rid=$hash{'ids_'.&Apache::lonnet::clutter($mapurl)}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
map { |
my $thiscond= |
my $thiscond= |
Line 119 sub move {
|
Line 119 sub move {
|
} |
} |
} elsif ($direction eq 'back') { |
} elsif ($direction eq 'back') { |
# ------------------------------------------------------------------- Backwards |
# ------------------------------------------------------------------- Backwards |
if ($hash{'type_'.$rid} eq 'start') { |
while ($hash{'type_'.$rid} eq 'start') { |
$rid=$hash{'ids_'.&Apache::lonnet::clutter($mapurl)}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
map { |
my $thiscond= |
my $thiscond= |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |