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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.111 and 1.114

version 1.111, 2021/05/04 18:47:36 version 1.114, 2022/02/16 16:35:23
Line 3242  sub clone_form { Line 3242  sub clone_form {
         '</label><br /><label>'.          '</label><br /><label>'.
         '<input type="radio" name="datemode" value="shift" checked="checked" /> '.          '<input type="radio" name="datemode" value="shift" checked="checked" /> '.
         $lt{'shd'}.'</label>'.          $lt{'shd'}.'</label>'.
         '<input type="text" size="5" name="dateshift" value="365" />'.          '<input type="text" size="5" name="dateshift" value="364" />'.
         &Apache::lonhtmlcommon::row_closure(1).          &Apache::lonhtmlcommon::row_closure(1).
         &Apache::lonhtmlcommon::row_title($lt{'dpl'}).'<label>'.          &Apache::lonhtmlcommon::row_title($lt{'dpl'}).'<label>'.
         '<input type="radio" name="tinyurls" value="delete" /> '.$lt{'nsl'}.          '<input type="radio" name="tinyurls" value="delete" /> '.$lt{'nsl'}.
Line 4920  sub print_textbook_form { Line 4920  sub print_textbook_form {
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="owndatemode" value="shift" checked="checked" /> '.                    '<input type="radio" name="owndatemode" value="shift" checked="checked" /> '.
                   $lt{'shd'}.'</label>'.                    $lt{'shd'}.'</label>'.
                   '<input type="text" size="5" name="owndateshift" value="365" />'.                    '<input type="text" size="5" name="owndateshift" value="364" />'.
                   '</fieldset><fieldset style="display:inline-block">'.                    '</fieldset><fieldset style="display:inline-block">'.
                   '<legend>'.$lt{'dpl'}.'</legend><label>'.                    '<legend>'.$lt{'dpl'}.'</legend><label>'.
                   '<input type="radio" name="owntinyurls" value="delete" />'.$lt{'nsl'}.                    '<input type="radio" name="owntinyurls" value="delete" />'.$lt{'nsl'}.
Line 4944  sub print_textbook_form { Line 4944  sub print_textbook_form {
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="colldatemode" value="shift" checked="checked" /> '.                    '<input type="radio" name="colldatemode" value="shift" checked="checked" /> '.
                   $lt{'shd'}.'</label>'.                    $lt{'shd'}.'</label>'.
                   '<input type="text" size="5" name="colldateshift" value="365" />'.                    '<input type="text" size="5" name="colldateshift" value="364" />'.
                   '</fieldset><fieldset style="display:inline-block">'.                    '</fieldset><fieldset style="display:inline-block">'.
                   '<legend>'.$lt{'dpl'}.'</legend><label>'.                    '<legend>'.$lt{'dpl'}.'</legend><label>'.
                   '<input type="radio" name="colltinyurls" value="delete" />'.$lt{'nsl'}.                    '<input type="radio" name="colltinyurls" value="delete" />'.$lt{'nsl'}.
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'} => $env{'request.lti.login'}.':'.$cnum },$dom);
                   }
               }
         }          }
     } elsif (&Apache::loncoursequeueadmin::author_prompt()) {      } elsif (&Apache::loncoursequeueadmin::author_prompt()) {
         unless ($customized) {          unless ($customized) {
Removed from v.1.111  
changed lines
  Added in v.1.114

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