Diff for /rat/lonpageflip.pm between versions 1.108 and 1.109

version 1.108, 2021/08/06 01:27:04 version 1.109, 2021/08/09 18:51:04
Line 425  sub get_deeplink_login_pc { Line 425  sub get_deeplink_login_pc {
     if (($env{'request.deeplink.login'}) && ($env{'request.course.id'})) {      if (($env{'request.deeplink.login'}) && ($env{'request.course.id'})) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         if ($env{'request.deeplink.login'}) {          my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          if ($deeplink_symb) {
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};              my $loginmap;
             my $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);              if ($deeplink_symb =~ /\.(page|sequence)$/) {
             if ($deeplink_symb) {                  $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
                 my $loginmap;              } else {
                 if ($deeplink_symb =~ /\.(page|sequence)$/) {                  $loginmap = &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($deeplink_symb))[0]);
                     $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};  
             }              }
               $deeplink_login_pc = $hash{'map_pc_'.$loginmap};
         }          }
     }      }
     return $deeplink_login_pc;      return $deeplink_login_pc;

Removed from v.1.108  
changed lines
  Added in v.1.109


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>