[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1369 and 1.1370

version 1.1369, 2021/11/15 22:36:37 version 1.1370, 2021/11/17 19:55:15
Line 9171  sub menucoll_in_effect { Line 9171  sub menucoll_in_effect {
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $menucoll = $env{'course.'.$env{'request.course.id'}.'.menudefault'};          $menucoll = $env{'course.'.$env{'request.course.id'}.'.menudefault'};
         if ($env{'request.deeplink.login'}) {          if ($env{'request.deeplink.login'}) {
             my ($deeplink_symb,$deeplink);              my ($deeplink_symb,$deeplink,$check_login_symb);
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};              my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};              my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
             if ($env{'request.noversionuri'} =~ m{^/(res|uploaded)/}) {              if ($env{'request.noversionuri'} =~ m{^/(res|uploaded)/}) {
Line 9181  sub menucoll_in_effect { Line 9181  sub menucoll_in_effect {
                         $deeplink = $navmap->get_mapparam(undef,                          $deeplink = $navmap->get_mapparam(undef,
                                                           &Apache::lonnet::declutter($env{'request.noversionuri'}),                                                            &Apache::lonnet::declutter($env{'request.noversionuri'}),
                                                           '0.deeplink');                                                            '0.deeplink');
                       } else {
                           $check_login_symb = 1;
                     }                      }
                 } else {                  } else {
                     $deeplink = &Apache::lonnet::EXT('resource.0.deeplink');                      my $symb = &Apache::lonnet::symbread();
                       if ($symb) {
                           $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb);
                       } else {
                           $check_login_symb = 1;
                       }
                 }                  }
             } else {              } else {
                   $check_login_symb = 1;
               }
               if ($check_login_symb) {
                 $deeplink_symb = &deeplink_login_symb($cnum,$cdom);                  $deeplink_symb = &deeplink_login_symb($cnum,$cdom);
                 if ($deeplink_symb =~ /\.(page|sequence)$/) {                  if ($deeplink_symb =~ /\.(page|sequence)$/) {
                     my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);                      my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
Removed from v.1.1369  
changed lines
  Added in v.1.1370

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