--- rat/lonpageflip.pm	2015/03/14 22:29:25	1.80.8.7
+++ rat/lonpageflip.pm	2015/03/14 21:56:13	1.87
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.80.8.7 2015/03/14 22:29:25 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.87 2015/03/14 21:56:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -269,7 +269,7 @@ sub handler {
   my @possibilities=();
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   if (($env{'form.postdata'})&&($env{'request.course.fn'})) {
-      my ($direction,$currenturl) = ($env{'form.postdata'}=~/(\w+)\:(.*)/);
+      $env{'form.postdata'}=~/(\w+)\:(.*)/;
 
       if ($env{'request.course.id'}) {
           # Check if course needs to be re-initialized
@@ -293,6 +293,8 @@ sub handler {
           }
       }
 
+      my $direction=$1;
+      my $currenturl=$2;
       if ($currenturl=~m|^/enc/|) {
 	  $currenturl=&Apache::lonenc::unencrypted($currenturl);
       }
@@ -305,7 +307,7 @@ sub handler {
 	     
 	  return REDIRECT;
       }
-      if ($direction eq 'return') { 
+      if ($direction eq 'return') {
 # -------------------------------------------------------- Return to last known
          my $last;
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
@@ -328,12 +330,12 @@ sub handler {
             untie %hash;
          } else {
 	    $newloc='/adm/navmaps';
-         }
-	 &Apache::loncommon::content_type($r,'text/html');
-	 $r->header_out(Location => 
-			&Apache::lonnet::absolute_url().$newloc);
+         }  
+	     &Apache::loncommon::content_type($r,'text/html');
+	     $r->header_out(Location => 
+			    &Apache::lonnet::absolute_url().$newloc);
 	     
-	 return REDIRECT;
+	     return REDIRECT;
       }
       $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;
@@ -350,11 +352,11 @@ sub handler {
          if ($last) {
 	     $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
 	 } else {
-	     &Apache::loncommon::content_type($r,'text/html');
-	     $r->header_out(Location => 
-			    &Apache::lonnet::absolute_url().
-			    '/adm/noidea.html');
-	     return REDIRECT;
+		 &Apache::loncommon::content_type($r,'text/html');
+		 $r->header_out(Location => 
+				&Apache::lonnet::absolute_url().
+				'/adm/noidea.html');
+		 return REDIRECT;
          }
       }
 # ------------------------------------------- Do we have any idea where we are?
@@ -429,11 +431,11 @@ sub handler {
 		  }
 # ------------------------------------- Check for and display critical messages
                   my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);
-                  unless ($redirect) {
+                  unless ($redirect) { 
                       $url=&Apache::lonnet::absolute_url().$redirecturl;
-                      $url = &add_get_param($url, { 'symb' => $redirectsymb});
+		      $url = &add_get_param($url, { 'symb' => $redirectsymb});
                   }
-                  &Apache::loncommon::content_type($r,'text/html');
+		  &Apache::loncommon::content_type($r,'text/html');
                   $r->header_out(Location => $url);
                   return REDIRECT;
 	      } else {
@@ -483,7 +485,7 @@ ENDSTART
                           &Apache::loncommon::start_page('No Resource')
                          .'<h2>'.$lt{'title'}.'</h2>'
                          .'<p>'.$lt{'explain'}.'</p>');
-		  }
+                  }
                   $r->print(
                       &Apache::lonhtmlcommon::actionbox(
                           ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',