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

Diff for /loncom/interface/loncommon.pm between versions 1.1363 and 1.1364

version 1.1363, 2021/08/04 19:59:10 version 1.1364, 2021/08/07 20:49:11
Line 9188  sub deeplink_login_symb { Line 9188  sub deeplink_login_symb {
     my ($cnum,$cdom) = @_;      my ($cnum,$cdom) = @_;
     my $login_symb;      my $login_symb;
     if ($env{'request.deeplink.login'}) {      if ($env{'request.deeplink.login'}) {
         if ($env{'request.deeplink.login'} =~ m{^\Q/tiny/$cdom/\E(\w+)$}) {          $login_symb = &symb_from_tinyurl($env{'request.deeplink.login'},$cnum,$cdom);
             my $key = $1;      }
             my ($tinyurl,$login);      return $login_symb;
             my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$cdom."\0".$key);  }
             if (defined($cached)) {  
                 $tinyurl = $result;  sub symb_from_tinyurl {
             } else {      my ($url,$cnum,$cdom) = @_;
                 my $configuname = &Apache::lonnet::get_domainconfiguser($cdom);      if ($url =~ m{^\Q/tiny/$cdom/\E(\w+)$}) {
                 my %currtiny = &Apache::lonnet::get('tiny',[$key],$cdom,$configuname);          my $key = $1;
                 if ($currtiny{$key} ne '') {          my ($tinyurl,$login);
                     $tinyurl = $currtiny{$key};          my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$cdom."\0".$key);
                     &Apache::lonnet::do_cache_new('tiny',$cdom."\0".$key,$currtiny{$key},600);          if (defined($cached)) {
                 }              $tinyurl = $result;
           } else {
               my $configuname = &Apache::lonnet::get_domainconfiguser($cdom);
               my %currtiny = &Apache::lonnet::get('tiny',[$key],$cdom,$configuname);
               if ($currtiny{$key} ne '') {
                   $tinyurl = $currtiny{$key};
                   &Apache::lonnet::do_cache_new('tiny',$cdom."\0".$key,$currtiny{$key},600);
             }              }
             if ($tinyurl ne '') {          }
                 my ($cnumreq,$posslogin) = split(/\&/,$tinyurl);          if ($tinyurl ne '') {
                 if ($cnumreq eq $cnum) {              my ($cnumreq,$symb) = split(/\&/,$tinyurl);
                     $login_symb = $posslogin;              if (wantarray) {
                 }                  return ($cnumreq,$symb);
               } elsif ($cnumreq eq $cnum) {
                   return $symb;
             }              }
         }          }
     }      }
     return $login_symb;      if (wantarray) {
           return ();
       } else {
           return;
       }
 }  }
   
 sub wishlist_window {  sub wishlist_window {
Removed from v.1.1363  
changed lines
  Added in v.1.1364

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