[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.80 and 1.82

version 1.80, 2022/10/27 21:35:30 version 1.82, 2023/05/22 21:20:56
Line 425  sub handler { Line 425  sub handler {
         my %toolhash = &Apache::lonnet::get('exttool_'.$marker,['target','linktext','explanation','id','width','height'],          my %toolhash = &Apache::lonnet::get('exttool_'.$marker,['target','linktext','explanation','id','width','height'],
                                             $cdom,$cnum);                                              $cdom,$cnum);
         if ($toolhash{'id'}) {          if ($toolhash{'id'}) {
             my %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');              my ($idx,%ltitools);
             if (ref($ltitools{$toolhash{'id'}}) eq 'HASH') {              if ($toolhash{'id'} =~ /^c(\d+)$/) {
                 $exttoolremote = $ltitools{$toolhash{'id'}}{'url'};                  $idx = $1;
                   %ltitools = &Apache::lonnet::get_course_lti($cnum,$cdom,'consumer');
               } else {
                   $idx = $toolhash{'id'};
                   %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
               }
               if (ref($ltitools{$idx}) eq 'HASH') {
                   $exttoolremote = $ltitools{$idx}{'url'};
             }              }
         }          }
         if ($toolhash{'target'} eq 'window') {          if ($toolhash{'target'} eq 'window') {
Line 484  sub handler { Line 491  sub handler {
                     $title = &mt('External Tool');                      $title = &mt('External Tool');
                 }                  }
             }              }
               $title = &HTML::Entities::encode($title,'\'"<>&');
             $is_supp = 1;              $is_supp = 1;
             if ($env{'request.course.id'}) {              if ($env{'request.course.id'}) {
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                  $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 506  sub handler { Line 514  sub handler {
                 &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);                  &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
             }              }
             my $title = $env{'form.title'};              my $title = $env{'form.title'};
               $title = &HTML::Entities::encode($title,'\'"<>&');
             my $crstype = &Apache::loncommon::course_type();              my $crstype = &Apache::loncommon::course_type();
             $brcrum =              $brcrum =
                 &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                  &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
Removed from v.1.80  
changed lines
  Added in v.1.82

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