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

Diff for /loncom/homework/lonhomework.pm between versions 1.371 and 1.373

version 1.371, 2018/05/15 04:59:14 version 1.373, 2018/09/18 14:30:19
Line 256  sub check_slot_access { Line 256  sub check_slot_access {
         } else {          } else {
             return ($status,$datemsg);              return ($status,$datemsg);
         }          }
     }       }
   
     if ($status eq 'CLOSED' ||      if ($status eq 'CLOSED' ||
  $status eq 'INVALID_ACCESS' ||   $status eq 'INVALID_ACCESS' ||
Line 266  sub check_slot_access { Line 266  sub check_slot_access {
     if ($env{'request.state'} eq "construct") {      if ($env{'request.state'} eq "construct") {
  return ($status,$datemsg);   return ($status,$datemsg);
     }      }
       
     if ($type eq 'Task') {      if ($type eq 'Task') {
  if ($checkedin &&   if ($checkedin &&
     $Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass') {      $Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass') {
Line 1879  sub do_ltipassback { Line 1879  sub do_ltipassback {
                     my ($cdom,$cnum) = ($1,$2);                      my ($cdom,$cnum) = ($1,$2);
                     my $ckey = $item->{'lti'}->{'key'};                      my $ckey = $item->{'lti'}->{'key'};
                     my $secret = $item->{'lti'}->{'secret'};                      my $secret = $item->{'lti'}->{'secret'};
                       my $msgformat = $item->{'lti'}->{'passbackformat'};
                       my $sigmethod = 'HMAC-SHA1';
                     my $id = $item->{'pbid'};                      my $id = $item->{'pbid'};
                     my $url = $item->{'pburl'};                      my $url = $item->{'pburl'};
                     my $scope = $item->{'scope'};                      my $scope = $item->{'scope'};
Line 1897  sub do_ltipassback { Line 1899  sub do_ltipassback {
                         ($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 (($ckey ne '') && ($secret ne '') && ($id ne '') && ($url ne '') && ($possible)) {
                         &LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$total,$possible);                          &LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$sigmethod,
                                                          $msgformat,$total,$possible);
                     }                      }
                 }                  }
             }              }
Removed from v.1.371  
changed lines
  Added in v.1.373

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