version 1.12, 2022/06/30 21:04:14
|
version 1.16, 2022/07/08 03:05:18
|
Line 250 sub handler {
|
Line 250 sub handler {
|
$destination .= '&ttoken='.$env{'form.ttoken'}; |
$destination .= '&ttoken='.$env{'form.ttoken'}; |
} |
} |
&do_redirect($r,$destination,$linkprot); |
&do_redirect($r,$destination,$linkprot); |
} elsif (keys(%possroles) > 1) { |
} elsif (@allposs > 1) { |
if (grep(/^(cc|co)$/,@allposs)) { |
if (grep(/^(cc|co)$/,@allposs)) { |
my $newrole; |
my $newrole; |
if (exists($possroles{'cc'})) { |
if (exists($possroles{'cc'})) { |
Line 270 sub handler {
|
Line 270 sub handler {
|
if (grep(/^cr\//,@allposs)) { |
if (grep(/^cr\//,@allposs)) { |
$hascustom = 1; |
$hascustom = 1; |
} |
} |
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom); |
&show_roles($r,\%crsenv,\%active,$hassection,$hascustom); |
} |
} |
} |
} |
return OK; |
return OK; |
Line 289 sub handler {
|
Line 289 sub handler {
|
|
|
sub launch_check { |
sub launch_check { |
my ($linkuri,$symb) = @_; |
my ($linkuri,$symb) = @_; |
my ($linkprotector,$linkproturi,$linkkey,$newlauncher); |
my ($linkprotector,$linkproturi,$linkprotexit,$linkkey,$newlauncher); |
if ($env{'form.ttoken'}) { |
if ($env{'form.ttoken'}) { |
my %link_info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
my %link_info = &Apache::lonnet::tmpget($env{'form.ttoken'}); |
&Apache::lonnet::tmpdel($env{'form.ttoken'}); |
&Apache::lonnet::tmpdel($env{'form.ttoken'}); |
Line 327 sub launch_check {
|
Line 327 sub launch_check {
|
} else { |
} else { |
&Apache::lonnet::appenv({'user.linkproturi' => $linkproturi}); |
&Apache::lonnet::appenv({'user.linkproturi' => $linkproturi}); |
} |
} |
|
if ($link_info{'linkprotexit'}) { |
|
$linkprotexit = $link_info{'linkprotexit'}; |
|
} |
} elsif ($link_info{'linkkey'} ne '') { |
} elsif ($link_info{'linkkey'} ne '') { |
$linkkey = $link_info{'linkkey'}; |
$linkkey = $link_info{'linkkey'}; |
my $keyedlinkuri = $linkuri; |
my $keyedlinkuri = $linkuri; |
Line 366 sub launch_check {
|
Line 369 sub launch_check {
|
} |
} |
if ($deeplink ne '') { |
if ($deeplink ne '') { |
my $disallow; |
my $disallow; |
my ($state,$others,$listed,$scope,$protect,$display,$target) = split(/,/,$deeplink); |
my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink); |
if (($protect ne 'none') && ($protect ne '')) { |
if (($protect ne 'none') && ($protect ne '')) { |
my ($acctype,$item) = split(/:/,$protect); |
my ($acctype,$item) = split(/:/,$protect); |
if ($acctype =~ /lti(c|d)$/) { |
if ($acctype =~ /lti(c|d)$/) { |
Line 394 sub launch_check {
|
Line 397 sub launch_check {
|
if ($env{'request.deeplink.target'} ne '') { |
if ($env{'request.deeplink.target'} ne '') { |
&Apache::lonnet::delenv('request.deeplink.target'); |
&Apache::lonnet::delenv('request.deeplink.target'); |
} |
} |
|
if ($env{'request.linkprot'} ne '') { |
|
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($env{'request.linkprotexit'} ne '') { |
|
&Apache::lonnet::delenv('request.linkprotexit'); |
|
} |
} |
} |
} else { |
} else { |
unless ($currdeeplinklogin eq $linkuri) { |
unless ($currdeeplinklogin eq $linkuri) { |
Line 401 sub launch_check {
|
Line 410 sub launch_check {
|
if ($linkprotector) { |
if ($linkprotector) { |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} elsif ($env{'request.linkprot'}) { |
} elsif ($env{'request.linkprot'}) { |
&Apache::lonnet::delenv({'request.linkprot'}); |
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($linkprotexit) { |
|
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
|
} elsif ($env{'request.linkprotexit'}) { |
|
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
if ($linkkey ne '') { |
if ($linkkey ne '') { |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
} elsif ($env{'request.linkkey'} ne '') { |
} elsif ($env{'request.linkkey'} ne '') { |
&Apache::lonnet::delenv({'request.linkkey'}); |
&Apache::lonnet::delenv('request.linkkey'); |
} |
} |
$newlauncher = 1; |
$newlauncher = 1; |
} |
} |
Line 422 sub launch_check {
|
Line 436 sub launch_check {
|
if ($linkprotector) { |
if ($linkprotector) { |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} elsif ($env{'request.linkprot'}) { |
} elsif ($env{'request.linkprot'}) { |
&Apache::lonnet::delenv({'request.linkprot'}); |
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($linkprotexit) { |
|
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
|
} elsif ($env{'request.linkprotexit'}) { |
|
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
if ($linkkey ne '') { |
if ($linkkey ne '') { |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
} else { |
} else { |
&Apache::lonnet::delenv({'request.linkkey'}); |
&Apache::lonnet::delenv('request.linkkey'); |
} |
} |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
if ($env{'request.deeplink.target'} ne '') { |
if ($env{'request.deeplink.target'} ne '') { |