version 1.112, 2021/08/31 17:21:24
|
version 1.113, 2021/11/24 04:25:02
|
Line 5226 sub process_textbook_request {
|
Line 5226 sub process_textbook_request {
|
'',$req_notifylist,[],$domconfig); |
'',$req_notifylist,[],$domconfig); |
$r->print($output); |
$r->print($output); |
if ($crstype eq 'lti') { |
if ($crstype eq 'lti') { |
my %consumers = &Apache::lonnet::get_dom('lticonsumers',[$env{'form.sourcecrs'}],$dom); |
my $storecrs; |
if (($env{'form.lti.sourcecrs'} ne '') && ($consumers{$env{'form.lti.sourcecrs'}} eq '') && ($cnum ne '')) { |
if ($env{'request.lti.login'}) { |
&Apache::lonnet::put_dom('lticonsumers',{ $env{'form.lti.sourcecrs'} => $cnum },$dom); |
my %lti = &Apache::lonnet::get_domain_lti($dom,'provider'); |
|
if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') { |
|
$storecrs = $lti{$env{'request.lti.login'}}{'storecrs'}; |
|
} |
|
} |
|
if ($storecrs) { |
|
my %consumers = &Apache::lonnet::get_dom('lticonsumers',[$env{'form.sourcecrs'}],$dom); |
|
if (($env{'form.lti.sourcecrs'} ne '') && ($consumers{$env{'form.lti.sourcecrs'}} eq '') && ($cnum ne '')) { |
|
&Apache::lonnet::put_dom('lticonsumers',{ $env{'form.lti.sourcecrs'} => $cnum },$dom); |
|
} |
} |
} |
} elsif (&Apache::loncoursequeueadmin::author_prompt()) { |
} elsif (&Apache::loncoursequeueadmin::author_prompt()) { |
unless ($customized) { |
unless ($customized) { |