version 1.1362, 2021/07/19 15:48:26
|
version 1.1364, 2021/08/07 20:49:11
|
Line 9170 sub menucoll_in_effect {
|
Line 9170 sub menucoll_in_effect {
|
} |
} |
} |
} |
if ($deeplink ne '') { |
if ($deeplink ne '') { |
my ($listed,$scope,$access,$display) = split(/,/,$deeplink); |
my ($state,$others,$listed,$scope,$protect,$display) = split(/,/,$deeplink); |
if ($display =~ /^\d+$/) { |
if ($display =~ /^\d+$/) { |
$deeplinkmenu = 1; |
$deeplinkmenu = 1; |
$menucoll = $display; |
$menucoll = $display; |
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 { |