version 1.8.2.4, 2023/01/21 21:16:25
|
version 1.11, 2022/06/26 04:03:48
|
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,$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 77 sub handler {
|
Line 77 sub handler {
|
my %ltoken_info = &Apache::lonnet::tmpget($link_info{'ltoken'}); |
my %ltoken_info = &Apache::lonnet::tmpget($link_info{'ltoken'}); |
$linkprot = $ltoken_info{'linkprot'}; |
$linkprot = $ltoken_info{'linkprot'}; |
$linkprotuser = $ltoken_info{'linkprotuser'}; |
$linkprotuser = $ltoken_info{'linkprotuser'}; |
$linkprotexit = $ltoken_info{'linkprotexit'}; |
|
} elsif ($link_info{'linkprot'}) { |
} elsif ($link_info{'linkprot'}) { |
$linkprot = $link_info{'linkprot'}; |
$linkprot = $link_info{'linkprot'}; |
if ($link_info{'linkprotuser'}) { |
if ($link_info{'linkprotuser'}) { |
$linkprotuser = $link_info{'linkprotuser'}; |
$linkprotuser = $link_info{'linkprotuser'}; |
} |
} |
if ($link_info{'linkprotexit'}) { |
|
$linkprotexit = $link_info{'linkprotexit'}; |
|
} |
|
} |
} |
} |
} |
} |
} |
Line 118 sub handler {
|
Line 114 sub handler {
|
$realuri .= '?symb='.$symb; |
$realuri .= '?symb='.$symb; |
} |
} |
} |
} |
my ($update,$reinitresult); |
my $update; |
# Check if course needs to be re-initialized |
# Check if course needs to be re-initialized |
if ($newlauncher) { |
if ($newlauncher) { |
$update = 1; |
$update = 1; |
} else { |
} else { |
my $loncaparev = $r->dir_config('lonVersion'); |
my $loncaparev = $r->dir_config('lonVersion'); |
($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); |
if (($reinitresult eq 'main') || ($reinitresult eq 'both')) { |
if ($result eq 'update') { |
$update = 1; |
$update = 1; |
} elsif (!-e $env{'request.course.fn'}.'.db') { |
} elsif (!-e $env{'request.course.fn'}.'.db') { |
$update = 1; |
$update = 1; |
Line 155 sub handler {
|
Line 151 sub handler {
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) { |
|
my $possdel; |
|
if ($reinitresult eq 'supp') { |
|
$possdel = 1; |
|
} |
|
my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel); |
|
unless ($refs_updated) { |
|
&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel); |
|
} |
|
} |
|
my $host = $r->headers_in->get('Host'); |
my $host = $r->headers_in->get('Host'); |
if (!$host) { |
if (!$host) { |
$r->internal_redirect($realuri); |
$r->internal_redirect($realuri); |
Line 220 sub handler {
|
Line 206 sub handler {
|
} |
} |
} |
} |
my @allposs = keys(%active); |
my @allposs = keys(%active); |
|
if ($env{'request.lti.login'}) { |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
|
if ($env{'request.lti.target'} eq '') { |
|
if ($env{'form.ltitarget'} eq 'iframe') { |
|
&Apache::lonnet::appenv({'request.lti.target' => 'iframe'}); |
|
delete($env{'form.ltitarget'}); |
|
} |
|
} |
|
if ($env{'form.selectrole'}) { |
|
foreach my $role (@allposs) { |
|
my $newrole = "$role./$cdom/$cnum"; |
|
if ($possroles{$allposs[0]} ne '') { |
|
$newrole .= "/$possroles{$role}"; |
|
} |
|
if ($env{"form.$newrole"}) { |
|
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
|
'&destinationurl='.&HTML::Entities::encode($r->uri,'&<>"'); |
|
if ($env{'form.ltitarget'} eq 'iframe') { |
|
$destination .= '<itarget=iframe'; |
|
} |
|
&do_redirect($r,$destination); |
|
return OK; |
|
} |
|
} |
|
} |
|
} |
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,$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"; |
if ($possroles{$allposs[0]} ne '') { |
if ($possroles{$allposs[0]} ne '') { |
$newrole .= "/$possroles{$allposs[0]}"; |
$newrole .= "/$possroles{$allposs[0]}"; |
} |
} |
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'. |
'&destinationurl='.&HTML::Entities::encode($r->uri,'&<>"'); |
'&destinationurl='.&HTML::Entities::encode($r->uri,'&<>"'); |
Line 234 sub handler {
|
Line 246 sub handler {
|
$destination .= '&ttoken='.$env{'form.ttoken'}; |
$destination .= '&ttoken='.$env{'form.ttoken'}; |
} |
} |
&do_redirect($r,$destination,$linkprot); |
&do_redirect($r,$destination,$linkprot); |
} elsif (@allposs > 1) { |
} elsif (keys(%possroles) > 1) { |
if (grep(/^(cc|co)$/,@allposs)) { |
if (grep(/^(cc|co)$/,@allposs)) { |
my $newrole; |
my $newrole; |
if (exists($possroles{'cc'})) { |
if (exists($possroles{'cc'})) { |
Line 254 sub handler {
|
Line 266 sub handler {
|
if (grep(/^cr\//,@allposs)) { |
if (grep(/^cr\//,@allposs)) { |
$hascustom = 1; |
$hascustom = 1; |
} |
} |
&show_roles($r,\%crsenv,\%active,$hassection,$hascustom); |
&show_roles($r,\%crsenv,\%possroles,$hassection,$hascustom); |
} |
} |
} |
} |
return OK; |
return OK; |
Line 273 sub handler {
|
Line 285 sub handler {
|
|
|
sub launch_check { |
sub launch_check { |
my ($linkuri,$symb) = @_; |
my ($linkuri,$symb) = @_; |
my ($linkprotector,$linkproturi,$linkprotexit,$linkkey,$newlauncher); |
my ($linkprotector,$linkproturi,$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 311 sub launch_check {
|
Line 323 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 353 sub launch_check {
|
Line 362 sub launch_check {
|
} |
} |
if ($deeplink ne '') { |
if ($deeplink ne '') { |
my $disallow; |
my $disallow; |
my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink); |
my ($state,$others,$listed,$scope,$protect,$display,$target) = 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 381 sub launch_check {
|
Line 390 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 394 sub launch_check {
|
Line 397 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 420 sub launch_check {
|
Line 418 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 '') { |
Line 443 sub launch_check {
|
Line 436 sub launch_check {
|
sub do_redirect { |
sub do_redirect { |
my ($r,$destination,$linkprot) = @_; |
my ($r,$destination,$linkprot) = @_; |
my $windowname = 'loncapaclient'; |
my $windowname = 'loncapaclient'; |
|
if ($env{'request.lti.login'}) { |
|
$windowname .= 'lti'; |
|
} |
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $header = '<meta HTTP-EQUIV="Refresh" CONTENT="0; url='.$destination.'" />'; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
my $args = {'bread_crumbs' => [{'href' => '','text' => 'Role initialization'},],}; |
if ($linkprot) { |
if ($linkprot) { |
Line 466 sub do_redirect {
|
Line 462 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,$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 606 ENDJS
|
Line 602 ENDJS
|
my %data = ( |
my %data = ( |
origurl => $r->uri, |
origurl => $r->uri, |
linkprot => $linkprot, |
linkprot => $linkprot, |
linkprotexit => $linkprotexit, |
|
); |
); |
my $token = |
my $token = |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |
&Apache::lonnet::tmpput(\%data,$r->dir_config('lonHostID'),'retry'); |
Line 643 ENDJS
|
Line 638 ENDJS
|
sub generic_error { |
sub generic_error { |
my ($r) = @_; |
my ($r) = @_; |
my $continuelink; |
my $continuelink; |
my $linktext; |
unless ($env{'request.lti.login'}) { |
if ($env{'user.adv'}) { |
my $linktext; |
$linktext = &mt('Continue to your roles page'); |
if ($env{'user.adv'}) { |
} else { |
$linktext = &mt('Continue to your roles page'); |
$linktext = &mt('Continue to your courses page'); |
} else { |
|
$linktext = &mt('Continue to your courses page'); |
|
} |
|
$continuelink='<a href="/adm/roles">'.$linktext.'</a>'; |
} |
} |
$continuelink='<a href="/adm/roles">'.$linktext.'</a>'; |
|
my $msg = &mt('The page you requested does not exist.'); |
my $msg = &mt('The page you requested does not exist.'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |