--- rat/lonpageflip.pm	2002/04/12 14:24:58	1.24
+++ rat/lonpageflip.pm	2002/05/23 15:07:55	1.25
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.24 2002/04/12 14:24:58 www Exp $
+# $Id: lonpageflip.pm,v 1.25 2002/05/23 15:07:55 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,6 +63,16 @@ sub addrid {
     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 {
     my ($rid,$mapurl,$direction)=@_;
     my $startoutrid=$rid;