--- rat/lonpageflip.pm	2000/10/11 21:16:29	1.6
+++ rat/lonpageflip.pm	2000/10/16 20:47:39	1.7
@@ -10,7 +10,7 @@
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02 Gerd Kortemeyer)
 #
-# 10/03,10/05,10/06,10/07,10/09,10/10,10/11 Gerd Kortemeyer
+# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16 Gerd Kortemeyer
 
 package Apache::lonpageflip;
 
@@ -63,6 +63,22 @@ sub handler {
       my $currenturl=$2;
       $currenturl=~s/^http\:\/\///;
       $currenturl=~s/^[^\/]+//;
+      unless ($currenturl=~/\/res\//) {
+	 my $last;
+         if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
+                    &GDBM_READER,0640)) {
+	     $last=$hash{'last_known'};
+             untie(%hash);
+         }
+         if ($last) {
+	     $currenturl='/res/'.(split(/\_\_\_/,$last))[1];
+	 } else {
+	     $r->content_type('text/html');
+             $r->header_out(Location => 
+                               'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html');
+         }
+         return REDIRECT;
+      }
 # ------------------------------------------- Do we have any idea where we are?
       my $position;
       if ($position=Apache::lonnet::symbread($currenturl)) {
@@ -154,6 +170,7 @@ sub handler {
 	      untie(%hash);
 # --------------------------------------------------------- Store position info
               $cachehash{'last_direction'}=$direction;
+              $cachehash{'last_known'}=&Apache::lonnet::declutter($currenturl);
               &Apache::lonnet::symblist($mapurl,%cachehash);
 # ============================================== Do not return before this line
               if ($redirecturl) {