[LON-CAPA-cvs] cvs: rat / lonpageflip.pm

[raeburn]

raeburn		Sat Mar 14 22:26:50 2015 EDT

  Modified files:              
    /rat	lonpageflip.pm 
  Log:
  - $direction and $currenturl bound to regexp for $env{'form.postdata'}.  
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.87 rat/lonpageflip.pm:1.88
--- rat/lonpageflip.pm:1.87	Sat Mar 14 21:56:13 2015
+++ rat/lonpageflip.pm	Sat Mar 14 22:26:50 2015
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.87 2015/03/14 21:56:13 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.88 2015/03/14 22:26:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -269,7 +269,7 @@
   my @possibilities=();
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   if (($env{'form.postdata'})&&($env{'request.course.fn'})) {
-      $env{'form.postdata'}=~/(\w+)\:(.*)/;
+      my ($direction,$currenturl) = ($env{'form.postdata'}=~/(\w+)\:(.*)/);
 
       if ($env{'request.course.id'}) {
           # Check if course needs to be re-initialized
@@ -293,8 +293,6 @@
           }
       }
 
-      my $direction=$1;
-      my $currenturl=$2;
       if ($currenturl=~m|^/enc/|) {
 	  $currenturl=&Apache::lonenc::unencrypted($currenturl);
       }