version 1.8.2.6, 2024/02/10 14:24:46
|
version 1.18, 2022/10/29 18:13:28
|
Line 68 sub handler {
|
Line 68 sub handler {
|
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
my $chome = &Apache::lonnet::homeserver($cnum,$cdom); |
if ($chome ne 'no_host') { |
if ($chome ne 'no_host') { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['ttoken']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['ttoken']); |
my ($linkprot,$linkprotuser,$linkprotexit,$ltoken,$linkprotpbid,$linkprotpburl); |
my ($linkprot,$linkprotuser,$linkprotexit,$ltoken); |
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'}); |
if ($link_info{'origurl'} eq $r->uri) { |
if ($link_info{'origurl'} eq $r->uri) { |
Line 78 sub handler {
|
Line 78 sub handler {
|
$linkprot = $ltoken_info{'linkprot'}; |
$linkprot = $ltoken_info{'linkprot'}; |
$linkprotuser = $ltoken_info{'linkprotuser'}; |
$linkprotuser = $ltoken_info{'linkprotuser'}; |
$linkprotexit = $ltoken_info{'linkprotexit'}; |
$linkprotexit = $ltoken_info{'linkprotexit'}; |
$linkprotpbid = $ltoken_info{'linkprotpbid'}; |
|
$linkprotpburl = $ltoken_info{'linkprotpburl'}; |
|
} elsif ($link_info{'linkprot'}) { |
} elsif ($link_info{'linkprot'}) { |
$linkprot = $link_info{'linkprot'}; |
$linkprot = $link_info{'linkprot'}; |
if ($link_info{'linkprotuser'}) { |
if ($link_info{'linkprotuser'}) { |
Line 88 sub handler {
|
Line 86 sub handler {
|
if ($link_info{'linkprotexit'}) { |
if ($link_info{'linkprotexit'}) { |
$linkprotexit = $link_info{'linkprotexit'}; |
$linkprotexit = $link_info{'linkprotexit'}; |
} |
} |
if ($link_info{'linkprotpbid'}) { |
|
$linkprotpbid = $link_info{'linkprotpbid'}; |
|
} |
|
if ($link_info{'linkprotpburl'}) { |
|
$linkprotpburl = $link_info{'linkprotpburl'}; |
|
} |
|
} |
} |
} |
} |
} |
} |
Line 255 sub handler {
|
Line 247 sub handler {
|
} |
} |
} |
} |
if (@allposs == 0) { |
if (@allposs == 0) { |
&show_roles($r,\%crsenv,\%active,'','',\%future,\%expired,$linkprot,$linkprotuser, |
&show_roles($r,\%crsenv,\%active,'','',\%future,\%expired,$linkprot,$linkprotuser,$linkprotexit,$ltoken); |
$linkprotexit,$linkprotpbid,$linkprotpburl,$ltoken); |
|
} elsif (@allposs == 1) { |
} elsif (@allposs == 1) { |
my $newrole = "$allposs[0]./$cdom/$cnum"; |
my $newrole = "$allposs[0]./$cdom/$cnum"; |
$newrole = "$allposs[0]./$cdom/$cnum"; |
$newrole = "$allposs[0]./$cdom/$cnum"; |
Line 308 sub handler {
|
Line 299 sub handler {
|
|
|
sub launch_check { |
sub launch_check { |
my ($linkuri,$symb) = @_; |
my ($linkuri,$symb) = @_; |
my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl, |
my ($linkprotector,$linkproturi,$linkprotexit,$linkkey,$newlauncher); |
$linkkey,$newlauncher,$prevlaunch); |
|
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 350 sub launch_check {
|
Line 340 sub launch_check {
|
if ($link_info{'linkprotexit'}) { |
if ($link_info{'linkprotexit'}) { |
$linkprotexit = $link_info{'linkprotexit'}; |
$linkprotexit = $link_info{'linkprotexit'}; |
} |
} |
if ($link_info{'linkprotpbid'}) { |
|
$linkprotpbid = $link_info{'linkprotpbid'}; |
|
} |
|
if ($link_info{'linkprotpburl'}) { |
|
$linkprotpburl = $link_info{'linkprotpburl'}; |
|
} |
|
} 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 381 sub launch_check {
|
Line 365 sub launch_check {
|
if ($link_info{'checklaunch'}) { |
if ($link_info{'checklaunch'}) { |
$newlauncher = 1; |
$newlauncher = 1; |
} |
} |
if ($link_info{'prevlaunch'} ne '') { |
|
$prevlaunch = $link_info{'prevlaunch'}; |
|
} |
|
} |
} |
my $currdeeplinklogin = $env{'request.deeplink.login'}; |
my $currdeeplinklogin = $env{'request.deeplink.login'}; |
my $deeplink; |
my $deeplink; |
Line 432 sub launch_check {
|
Line 413 sub launch_check {
|
if ($env{'request.linkprotexit'} ne '') { |
if ($env{'request.linkprotexit'} ne '') { |
&Apache::lonnet::delenv('request.linkprotexit'); |
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
if ($env{'request.linkprotpbid'} ne '') { |
|
&Apache::lonnet::delenv('request.linkprotpbid'); |
|
} |
|
if ($env{'request.linkprotpburl'} ne '') { |
|
&Apache::lonnet::delenv('request.linkprotpburl'); |
|
} |
|
} |
} |
} else { |
} else { |
unless ($currdeeplinklogin eq $linkuri) { |
unless ($currdeeplinklogin eq $linkuri) { |
if (($linkprotector) || ($linkkey ne '')) { |
if (($linkprotector) || ($linkkey ne '')) { |
$newlauncher = 1; |
if ($linkprotector) { |
} |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} |
} elsif ($env{'request.linkprot'}) { |
if ($linkprotector) { |
&Apache::lonnet::delenv('request.linkprot'); |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
} |
} elsif ($env{'request.linkprot'}) { |
|
&Apache::lonnet::delenv('request.linkprot'); |
|
} |
|
if ($linkkey ne '') { |
|
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
|
} elsif ($env{'request.linkkey'} ne '') { |
|
&Apache::lonnet::delenv('request.linkkey'); |
|
} |
|
if (($linkprotector) || ($linkkey ne '')) { |
|
if ($linkprotexit ne $env{'request.linkprotexit'}) { |
|
if ($linkprotexit) { |
if ($linkprotexit) { |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
&Apache::lonnet::appenv({'request.linkprotexit' => $linkprotexit}); |
} elsif ($env{'request.linkprotexit'}) { |
} elsif ($env{'request.linkprotexit'}) { |
&Apache::lonnet::delenv('request.linkprotexit'); |
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
} |
if ($linkkey ne '') { |
if ($linkprotpbid ne $env{'request.linkprotpbid'}) { |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
if ($linkprotpbid) { |
} elsif ($env{'request.linkkey'} ne '') { |
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
&Apache::lonnet::delenv('request.linkkey'); |
} elsif ($env{'request.linkprotpbid'}) { |
|
&Apache::lonnet::delenv('request.linkprotpbid'); |
|
} |
|
} |
|
if ($linkprotpburl ne $env{'request.linkprotpburl'}) { |
|
if ($linkprotpburl) { |
|
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
|
} elsif ($env{'request.linkprotpburl'}) { |
|
&Apache::lonnet::delenv('request.linkprotpburl'); |
|
} |
|
} |
|
} elsif ($prevlaunch) { |
|
foreach my $requestkey ('linkprotpbid','linkprotpburl','linkprotexit') { |
|
if ($env{"request.$requestkey"}) { |
|
&Apache::lonnet::delenv("request.$requestkey"); |
|
} |
} |
|
$newlauncher = 1; |
} |
} |
} |
} |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri}); |
Line 502 sub launch_check {
|
Line 453 sub launch_check {
|
} elsif ($env{'request.linkprotexit'}) { |
} elsif ($env{'request.linkprotexit'}) { |
&Apache::lonnet::delenv('request.linkprotexit'); |
&Apache::lonnet::delenv('request.linkprotexit'); |
} |
} |
if ($linkprotpbid) { |
|
&Apache::lonnet::appenv({'request.linkprotpbid' => $linkprotpbid}); |
|
} elsif ($env{'request.linkprotpbid'}) { |
|
&Apache::lonnet::delenv('request.linkprotpbid'); |
|
} |
|
if ($linkprotpburl) { |
|
&Apache::lonnet::appenv({'request.linkprotpburl' => $linkprotpburl}); |
|
} elsif ($env{'request.linkprotpburl'}) { |
|
&Apache::lonnet::delenv('request.linkprotpburl'); |
|
} |
|
if ($linkkey ne '') { |
if ($linkkey ne '') { |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
&Apache::lonnet::appenv({'request.linkkey' => $linkkey}); |
} else { |
} else { |
Line 554 sub do_redirect {
|
Line 495 sub do_redirect {
|
} |
} |
|
|
sub show_roles { |
sub show_roles { |
my ($r,$crsenv,$possroles,$hassection,$hascustom,$futureroles,$expiredroles, |
my ($r,$crsenv,$possroles,$hassection,$hascustom,$futureroles,$expiredroles,$linkprot,$linkprotuser,$linkprotexit,$ltoken) = @_; |
$linkprot,$linkprotuser,$linkprotexit,$linkprotpbid,$linkprotpburl,$ltoken) = @_; |
|
my ($crsdesc,$crstype,$cdom,$cnum,$header,$title,$preamble,$datatable,$js,$args); |
my ($crsdesc,$crstype,$cdom,$cnum,$header,$title,$preamble,$datatable,$js,$args); |
if (ref($crsenv) eq 'HASH') { |
if (ref($crsenv) eq 'HASH') { |
$crsdesc = $crsenv->{'description'}; |
$crsdesc = $crsenv->{'description'}; |
Line 696 ENDJS
|
Line 636 ENDJS
|
origurl => $r->uri, |
origurl => $r->uri, |
linkprot => $linkprot, |
linkprot => $linkprot, |
linkprotexit => $linkprotexit, |
linkprotexit => $linkprotexit, |
linkprotpbid => $linkprotpbid, |
|
linkprotpburl => $linkprotpburl, |
|
); |
); |
my $token = |
my $token = |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |