version 1.18, 2022/10/29 18:13:28
|
version 1.19, 2023/06/02 01:20:26
|
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); |
my ($linkprot,$linkprotuser,$linkprotexit,$ltoken,$linkprotpbid,$linkprotpburl); |
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'}; |
|
$linkprotpbid = $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 86 sub handler {
|
Line 88 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 247 sub handler {
|
Line 255 sub handler {
|
} |
} |
} |
} |
if (@allposs == 0) { |
if (@allposs == 0) { |
&show_roles($r,\%crsenv,\%active,'','',\%future,\%expired,$linkprot,$linkprotuser,$linkprotexit,$ltoken); |
&show_roles($r,\%crsenv,\%active,'','',\%future,\%expired,$linkprot,$linkprotuser, |
|
$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 299 sub handler {
|
Line 308 sub handler {
|
|
|
sub launch_check { |
sub launch_check { |
my ($linkuri,$symb) = @_; |
my ($linkuri,$symb) = @_; |
my ($linkprotector,$linkproturi,$linkprotexit,$linkkey,$newlauncher); |
my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl,$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 340 sub launch_check {
|
Line 349 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 413 sub launch_check {
|
Line 428 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) { |
Line 427 sub launch_check {
|
Line 448 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}); |
} elsif ($env{'request.linkkey'} ne '') { |
} elsif ($env{'request.linkkey'} ne '') { |
Line 453 sub launch_check {
|
Line 484 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 495 sub do_redirect {
|
Line 536 sub do_redirect {
|
} |
} |
|
|
sub show_roles { |
sub show_roles { |
my ($r,$crsenv,$possroles,$hassection,$hascustom,$futureroles,$expiredroles,$linkprot,$linkprotuser,$linkprotexit,$ltoken) = @_; |
my ($r,$crsenv,$possroles,$hassection,$hascustom,$futureroles,$expiredroles, |
|
$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 636 ENDJS
|
Line 678 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'); |