--- rat/lonsequence.pm	2000/10/16 20:47:39	1.1
+++ rat/lonsequence.pm	2000/10/16 21:09:33	1.2
@@ -43,12 +43,27 @@ sub handler {
       return OK;
    }
 
+   my %hash;
    my %bighash;
+   my $requrl=$r->uri;
+
 # ----------------------------------------------------------------- Tie db file
   if ($ENV{'request.course.fn'}) {
-       my $envkey;
+       my $last;
+       if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
+                    &GDBM_READER,0640)) {
+	   $last=$hash{'last_direction'};
+           untie(%hash);
+       }
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER,0640)) {
+           my $direction='';
+           my $prevmap='';
+	   if ($last) {
+	       ($prevmap,$direction)=(split(/\_\_\_/,$last));
+           }
+              
+# ===== Stuff goes here
           foreach $envkey (keys %ENV) {
              if ($envkey=~/^form\.(\d+)\.(\d+)$/) {
 	         my $mapid=$1;