[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