[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: rat / lonpageflip.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2021-08-09 18:51:04
Message-ID: cvsraeburn1628535064 () cvsserver
[Download RAW message or body]
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;
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic