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

Diff for /loncom/interface/lonexttool.pm between versions 1.22.2.3 and 1.23

version 1.22.2.3, 2023/07/05 18:42:48 version 1.23, 2022/03/29 20:12:46
Line 96  sub handler { Line 96  sub handler {
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};      my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
     my ($idx,$crstool,$is_tool,%toolhash,%toolsettings);      my ($idx,$is_tool,%toolhash,%toolsettings);
   
     if ($r->uri eq "/adm/$cdom/$cnum/$marker/$exttool") {      if ($r->uri eq "/adm/$cdom/$cnum/$marker/$exttool") {
         %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);          %toolsettings=&Apache::lonnet::dump('exttool_'.$marker,$cdom,$cnum);
         if ($toolsettings{'id'}) {          if ($toolsettings{'id'}) {
             my %ltitools;              $idx = $toolsettings{'id'};
             if ($toolsettings{'id'} =~ /^c(\d+)$/) {              my %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
                 $idx = $1;  
                 $crstool = 1;  
                 %ltitools = &Apache::lonnet::get_course_lti($cnum,$cdom,'consumer');  
             } else {  
                 $idx = $toolsettings{'id'};  
                 %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');  
             }  
             if (ref($ltitools{$idx}) eq 'HASH') {              if (ref($ltitools{$idx}) eq 'HASH') {
                 %toolhash = %{$ltitools{$idx}};                  %toolhash = %{$ltitools{$idx}};
                 $toolhash{'display'} = {                  $toolhash{'display'} = {
Line 211  sub handler { Line 204  sub handler {
             }              }
         }          }
         my $submittext = &mt('Launch [_1]',$toolhash{'title'});          my $submittext = &mt('Launch [_1]',$toolhash{'title'});
         if (($toolhash{'url'} ne '') && ($launchok)) {          if (($toolhash{'key'} ne '') && ($toolhash{'secret'} ne '') && 
               ($toolhash{'url'} ne '') && ($launchok)) {
             my %lti = &lti_params($r,$cnum,$cdom,$idx,$submittext,\%toolhash);              my %lti = &lti_params($r,$cnum,$cdom,$idx,$submittext,\%toolhash);
             my $url = $toolhash{'url'};              my $url = $toolhash{'url'};
             if ($toolhash{'crsappend'} ne '') {              if ($toolhash{'crsappend'} ne '') {
                 $url .= $toolhash{'crsappend'};                  $url .= $toolhash{'crsappend'};
             }              }
             my %info = (              $r->print(&launch_html($url,$toolhash{'key'},$toolhash{'secret'},
                          method => $toolhash{'sigmethod'},                                     $toolhash{'sigmethod'},$submittext,\%lti));
                        );  
             $r->print(&launch_html($cdom,$cnum,$crstool,$url,$idx,  
                                    $toolhash{'cipher'},$submittext,\%lti,\%info));  
         } else {          } else {
             $r->print('<div class="LC_warning">'.&mt('External Tool Unavailable').'</div>');              $r->print('<div>'.&mt('External Tool Unavailable').'</div>');
         }          }
     }      }
     return OK;      return OK;
Line 443  sub lti_params { Line 434  sub lti_params {
 }  }
   
 sub launch_html {  sub launch_html {
     my ($cdom,$cnum,$crstool,$url,$idx,$keynum,$submittext,$paramsref,$inforef) = @_;      my ($url,$key,$secret,$sigmethod,$submittext,$paramsref) = @_;
     my ($status,$hashref) =      my $hashref = &LONCAPA::ltiutils::sign_params($url,$key,$secret,$paramsref,$sigmethod);
         &Apache::lonnet::sign_lti($cdom,$cnum,$crstool,'tools','launch',$url,$idx,$keynum,  
                                   $paramsref,$inforef);  
     unless ($status eq 'ok') {  
         return '<div class="LC_warning">'.&mt('External Tool Unavailable').'</div>';  
     }  
     my $action = &HTML::Entities::encode($url,'<>&"');      my $action = &HTML::Entities::encode($url,'<>&"');
     my $form = <<"END";      my $form = <<"END";
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
Removed from v.1.22.2.3  
changed lines
  Added in v.1.23

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