version 1.17, 2022/10/19 18:09:04
|
version 1.21, 2024/02/09 20:08:16
|
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'}; |
|
$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 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 160 sub handler {
|
Line 168 sub handler {
|
if ($reinitresult eq 'supp') { |
if ($reinitresult eq 'supp') { |
$possdel = 1; |
$possdel = 1; |
} |
} |
my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom,'',$possdel); |
my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel); |
unless ($refs_updated) { |
unless ($refs_updated) { |
&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel); |
&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel); |
} |
} |
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,$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 340 sub launch_check {
|
Line 350 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 365 sub launch_check {
|
Line 381 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 413 sub launch_check {
|
Line 432 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) { |
if (($currdeeplinklogin ne $linkuri) || |
|
(($prevlaunch ne '') && ($currdeeplinklogin ne $prevlaunch))) { |
if (($linkprotector) || ($linkkey ne '')) { |
if (($linkprotector) || ($linkkey ne '')) { |
if ($linkprotector) { |
if ($linkprotector) { |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
&Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi}); |
Line 427 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}); |
} elsif ($env{'request.linkkey'} ne '') { |
} elsif ($env{'request.linkkey'} ne '') { |
Line 453 sub launch_check {
|
Line 489 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 541 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 683 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'); |