[BACK]Return to lonrequestcourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.112 and 1.113

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) {
Removed from v.1.112  
changed lines
  Added in v.1.113

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>