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

raeburn raeburn at source.lon-capa.org
Mon Aug 9 14:51:04 EDT 2021


raeburn		Mon Aug  9 18:51:04 2021 EDT

  Modified files:              
    /rat	lonpageflip.pm 
  Log:
  - Remove some duplicated code added in rev. 1.106 
  
  
Index: rat/lonpageflip.pm
diff -u rat/lonpageflip.pm:1.108 rat/lonpageflip.pm:1.109
--- rat/lonpageflip.pm:1.108	Fri Aug  6 01:27:04 2021
+++ rat/lonpageflip.pm	Mon Aug  9 18:51:04 2021
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.108 2021/08/06 01:27:04 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.109 2021/08/09 18:51:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -425,19 +425,15 @@
     if (($env{'request.deeplink.login'}) && ($env{'request.course.id'})) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
-        if ($env{'request.deeplink.login'}) {
-            my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
-            my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
-            my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
-            if ($deeplink_symb) {
-                my $loginmap;
-                if ($deeplink_symb =~ /\.(page|sequence)$/) {
-                    $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
-                } else {
-                    $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[0]);
-                }
-                $deeplink_login_pc = $hash{'map_pc_'.$loginmap};
+        my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
+        if ($deeplink_symb) {
+            my $loginmap;
+            if ($deeplink_symb =~ /\.(page|sequence)$/) {
+                $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
+            } else {
+                $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[0]);
             }
+            $deeplink_login_pc = $hash{'map_pc_'.$loginmap};
         }
     }
     return $deeplink_login_pc;




More information about the LON-CAPA-cvs mailing list