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

Diff for /loncom/interface/lonexttool.pm between versions 1.15 and 1.16

version 1.15, 2017/12/30 19:51:30 version 1.16, 2018/01/01 01:29:38
Line 110  sub handler { Line 110  sub handler {
                                            width  => $toolsettings{'width'},                                             width  => $toolsettings{'width'},
                                            height => $toolsettings{'height'},                                             height => $toolsettings{'height'},
                                        };                                         };
                 $toolhash{'crslabel'} = $toolsettings{'crslabel'};                  foreach my $item (qw(crslabel crstitle crsappend gradable incdom)) {
                 $toolhash{'crstitle'} = $toolsettings{'crstitle'};                      $toolhash{$item} = $toolsettings{$item};
                 $toolhash{'crsappend'} = $toolsettings{'crsappend'};                  }
                 $toolhash{'gradable'} = $toolsettings{'gradable'};  
                 $is_tool = 1;                  $is_tool = 1;
             }              }
         }          }
Line 225  sub lti_params { Line 224  sub lti_params {
     my ($r,$cnum,$cdom,$idx,$submittext,$toolsref) = @_;      my ($r,$cnum,$cdom,$idx,$submittext,$toolsref) = @_;
     my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale,      my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale,
         $crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap,          $crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap,
         %display,%custom,@userlangs);          %display,%custom,@userlangs,$incdom);
     if (ref($toolsref) eq 'HASH') {      if (ref($toolsref) eq 'HASH') {
         $version = $toolsref->{'version'};          $version = $toolsref->{'version'};
         $toolname = $toolsref->{'title'};          $toolname = $toolsref->{'title'};
Line 234  sub lti_params { Line 233  sub lti_params {
         $roster = $toolsref->{'roster'};          $roster = $toolsref->{'roster'};
         $rostersecret = $toolsref->{'rostersecret'};          $rostersecret = $toolsref->{'rostersecret'};
         $msgtype = $toolsref->{'messagetype'};          $msgtype = $toolsref->{'messagetype'};
           $incdom = $toolsref->{'incdom'};
         if (ref($toolsref->{'fields'}) eq 'HASH') {          if (ref($toolsref->{'fields'}) eq 'HASH') {
             %fields = %{$toolsref->{'fields'}};              %fields = %{$toolsref->{'fields'}};
         }          }
Line 403  sub lti_params { Line 403  sub lti_params {
         $ltiparams{'lis_person_contact_email_primary'} = $contact_email;          $ltiparams{'lis_person_contact_email_primary'} = $contact_email;
     }      }
     if ($fields{'user'}) {      if ($fields{'user'}) {
         $ltiparams{'lis_person_sourcedid'} = $uname.':'.$udom;          if ($incdom) {
               $ltiparams{'lis_person_sourcedid'} = $uname.':'.$udom;
           } else {
               $ltiparams{'lis_person_sourcedid'} = $uname;
           }
     }      }
     if (keys(%custom)) {      if (keys(%custom)) {
         foreach my $key (keys(%custom)) {          foreach my $key (keys(%custom)) {
Removed from v.1.15  
changed lines
  Added in v.1.16

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