rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

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_'.$_}});