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

Diff for /loncom/homework/lonhomework.pm between versions 1.375 and 1.376

version 1.375, 2023/04/02 03:16:28 version 1.376, 2023/06/02 01:20:27
Line 1930  sub do_ltipassback { Line 1930  sub do_ltipassback {
             if (ref($item) eq 'HASH') {              if (ref($item) eq 'HASH') {
                 if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) {                  if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) {
                     my ($cdom,$cnum) = ($1,$2);                      my ($cdom,$cnum) = ($1,$2);
                     my $ckey = $item->{'lti'}->{'key'};  
                     my $secret = $item->{'lti'}->{'secret'};  
                     my $msgformat = $item->{'lti'}->{'passbackformat'};                      my $msgformat = $item->{'lti'}->{'passbackformat'};
                     my $sigmethod = 'HMAC-SHA1';                      my $sigmethod = 'HMAC-SHA1';
                       my $ltinum = $item->{'ltinum'};
                     my $id = $item->{'pbid'};                      my $id = $item->{'pbid'};
                     my $url = $item->{'pburl'};                      my $url = $item->{'pburl'};
                       my $type = $item->{'pbtype'};
                     my $scope = $item->{'scope'};                      my $scope = $item->{'scope'};
                     my $map = $item->{'ltimap'};                      my $map = $item->{'ltimap'};
                     my $symb = $item->{'ltisymb'};                      my $symb = $item->{'ltisymb'};
                     my $uname = $item->{'uname'};                      my $uname = $item->{'uname'};
                     my $udom = $item->{'udom'};                      my $udom = $item->{'udom'};
                       my $keynum = $item->{'lti'}->{'cipher'};
                       my $crsdef = $item->{'crsdef'};
                     my $scoretype = $item->{'format'};                      my $scoretype = $item->{'format'};
                     my ($total,$possible);                      my ($total,$possible);
                     if ($scope eq 'resource') {                      if ($scope eq 'resource') {
Line 1951  sub do_ltipassback { Line 1953  sub do_ltipassback {
                     } elsif ($scope eq 'course') {                      } elsif ($scope eq 'course') {
                         ($total,$possible) = &get_lti_score($uname,$udom);                          ($total,$possible) = &get_lti_score($uname,$udom);
                     }                      }
                     if (($ckey ne '') && ($secret ne '') && ($id ne '') && ($url ne '') && ($possible)) {                      if (($id ne '') && ($url ne '') && ($possible)) {
                         &LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$sigmethod,                          &LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id,$url,$scoretype,$sigmethod,$msgformat,$total,$possible);
                                                        $msgformat,$total,$possible);  
                     }                      }
                 }                  }
             }              }
Removed from v.1.375  
changed lines
  Added in v.1.376

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