version 1.62, 2006/01/09 18:51:26
|
version 1.64, 2006/02/23 19:29:26
|
Line 46 sub cleanup {
|
Line 46 sub cleanup {
|
&Apache::lonnet::logthis('Failed cleanup pageflip: hash'); |
&Apache::lonnet::logthis('Failed cleanup pageflip: hash'); |
} |
} |
} |
} |
|
return OK; |
} |
} |
|
|
sub addrid { |
sub addrid { |
Line 97 sub move {
|
Line 98 sub move {
|
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
foreach my $id (split(/\,/,$hash{'to_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'goesto_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
my $rescond = &Apache::lonnet::docondval($condition); |
if ($thiscond>=$mincond) { |
my $linkcond = &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
|
my $thiscond = ($rescond<$linkcond)?$rescond:$linkcond; |
|
if ($thiscond>=$mincond) { |
if ($posnext) { |
if ($posnext) { |
$posnext.=','.$id.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |
} else { |
} else { |
Line 137 sub move {
|
Line 140 sub move {
|
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
foreach my $id (split(/\,/,$hash{'from_'.$rid})) { |
foreach my $id (split(/\,/,$hash{'from_'.$rid})) { |
my $thiscond= |
my $condition= $hash{'conditions_'.$hash{'comesfrom_'.$id}}; |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
my $rescond = &Apache::lonnet::docondval($condition); |
|
my $linkcond = &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}}); |
|
my $thiscond = ($rescond<$linkcond)?$rescond:$linkcond; |
if ($thiscond>=$mincond) { |
if ($thiscond>=$mincond) { |
if ($posnext) { |
if ($posnext) { |
$posnext.=','.$id.':'.$thiscond; |
$posnext.=','.$id.':'.$thiscond; |