--- loncom/interface/lonrequestcourse.pm 2021/11/24 04:25:02 1.113 +++ loncom/interface/lonrequestcourse.pm 2022/02/16 16:35:23 1.114 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.113 2021/11/24 04:25:02 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.114 2022/02/16 16:35:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5232,11 +5232,11 @@ sub process_textbook_request { 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); + 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'} => $env{'request.lti.login'}.':'.$cnum },$dom); + } } } } elsif (&Apache::loncoursequeueadmin::author_prompt()) {