Diff for /rat/lonuserstate.pm between versions 1.166 and 1.168

version 1.166, 2021/08/10 15:28:14 version 1.168, 2022/05/29 12:10:17
Line 950  sub traceroute { Line 950  sub traceroute {
             @deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup);              @deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb,'','','','',$cid,\@recurseup);
         }          }
         unless (@deeplink < 2) {          unless (@deeplink < 2) {
             $hash{'deeplinkonly_'.$rid}=join(':',@deeplink);              $hash{'deeplinkonly_'.$rid}=join(':',map { &escape($_); } @deeplink);
         }          }
   
  if (defined($hash{'conditions_'.$rid})) {   if (defined($hash{'conditions_'.$rid})) {
Line 1613  sub build_tmp_hashes { Line 1613  sub build_tmp_hashes {
             }              }
             my $deeplink;              my $deeplink;
             if ($hash{'deeplinkonly_'.$loginrid} ne '') {              if ($hash{'deeplinkonly_'.$loginrid} ne '') {
                 $deeplink = $hash{'deeplinkonly_'.$loginrid};                  my @deeplinkinfo = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$loginrid});
                   unless (@deeplinkinfo < 2) {
                       $deeplink = $deeplinkinfo[0];
                   }
             }              }
             if ($deeplink) {              if ($deeplink) {
                 my $disallow;                  my $disallow;
Line 1632  sub build_tmp_hashes { Line 1635  sub build_tmp_hashes {
                 }                  }
                 if ($disallow) {                  if ($disallow) {
                     &Apache::lonnet::delenv('request.deeplink.login');                      &Apache::lonnet::delenv('request.deeplink.login');
                       if ($env{'request.deeplink.target'} ne '') {
                           &Apache::lonnet::delenv('request.deeplink.target');
                       }
                 } else {                  } else {
                     if ($others eq 'hide') {                      if ($others eq 'hide') {
                         my @recfolders;                          my @recfolders;

Removed from v.1.166  
changed lines
  Added in v.1.168


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