rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.23, 2002/04/12 13:47:21	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 $startoutrid=$rid;
Line 132 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);