|
version 1.113, 2021/11/24 04:25:02
|
version 1.114, 2022/02/16 16:35:23
|
|
Line 5232 sub process_textbook_request {
|
Line 5232 sub process_textbook_request {
|
| if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') { |
if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') { |
| $storecrs = $lti{$env{'request.lti.login'}}{'storecrs'}; |
$storecrs = $lti{$env{'request.lti.login'}}{'storecrs'}; |
| } |
} |
| } |
if ($storecrs) { |
| if ($storecrs) { |
my %consumers = &Apache::lonnet::get_dom('lticonsumers',[$env{'form.sourcecrs'}],$dom); |
| 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 '')) { |
| if (($env{'form.lti.sourcecrs'} ne '') && ($consumers{$env{'form.lti.sourcecrs'}} eq '') && ($cnum ne '')) { |
&Apache::lonnet::put_dom('lticonsumers',{ $env{'form.lti.sourcecrs'} => $env{'request.lti.login'}.':'.$cnum },$dom); |
| &Apache::lonnet::put_dom('lticonsumers',{ $env{'form.lti.sourcecrs'} => $cnum },$dom); |
} |
| } |
} |
| } |
} |
| } elsif (&Apache::loncoursequeueadmin::author_prompt()) { |
} elsif (&Apache::loncoursequeueadmin::author_prompt()) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonrequestcourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface