version 1.20, 2021/08/04 19:59:11
|
version 1.25, 2021/11/22 03:19:05
|
Line 68 sub handler {
|
Line 68 sub handler {
|
} |
} |
} |
} |
# |
# |
# Check for existing session, and restored temporarily |
# Check for existing session, and restore temporarily |
# deleted form items to %env, if session exists. |
# deleted form items to %env, if session exists. |
# |
# |
if ($handle ne '') { |
if ($handle ne '') { |
Line 197 sub handler {
|
Line 197 sub handler {
|
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail}, |
my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail}, |
$lonhost); |
$lonhost,'link'); |
if ($ltoken) { |
if ($ltoken) { |
$r->internal_redirect($tail.'?ltoken='.$ltoken); |
$r->internal_redirect($tail.'?ltoken='.$ltoken); |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
Line 854 sub lti_session {
|
Line 854 sub lti_session {
|
my $lowest_load; |
my $lowest_load; |
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom); |
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom); |
if ($lowest_load > 100) { |
if ($lowest_load > 100) { |
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$udom); |
$otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$udom); |
} |
} |
} |
} |
if ($otherserver ne '') { |
if ($otherserver ne '') { |
Line 930 sub lti_session {
|
Line 930 sub lti_session {
|
if ($params->{'launch_presentation_document_target'}) { |
if ($params->{'launch_presentation_document_target'}) { |
$env{'request.lti.target'} = $params->{'launch_presentation_document_target'}; |
$env{'request.lti.target'} = $params->{'launch_presentation_document_target'}; |
} |
} |
foreach my $key (%{$params}) { |
foreach my $key (keys(%{$params})) { |
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
my $redirecturl = '/adm/switchserver'; |
my $redirecturl = '/adm/switchserver'; |
Line 942 sub lti_session {
|
Line 942 sub lti_session {
|
} else { |
} else { |
# need to login them in, so generate the need data that |
# need to login them in, so generate the need data that |
# migrate expects to do login |
# migrate expects to do login |
foreach my $key (%{$params}) { |
foreach my $key (keys(%{$params})) { |
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) { |
if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) { |
Line 1036 sub course_from_tinyurl {
|
Line 1036 sub course_from_tinyurl {
|
my ($tail) = @_; |
my ($tail) = @_; |
my ($urlcdom,$urlcnum); |
my ($urlcdom,$urlcnum); |
if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) { |
if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) { |
my ($urlcdom,$key) = ($1,$2); |
($urlcdom,my $key) = ($1,$2); |
my $tinyurl; |
my $tinyurl; |
my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key); |
my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key); |
if (defined($cached)) { |
if (defined($cached)) { |