[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[raeburn]

raeburn		Tue Sep 18 14:30:19 2018 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Provider
    Args expected by ltiutils::send_grade changed in ltiutils rev. 1.15
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.372 loncom/homework/lonhomework.pm:1.373
--- loncom/homework/lonhomework.pm:1.372	Tue Aug 14 18:24:04 2018
+++ loncom/homework/lonhomework.pm	Tue Sep 18 14:30:19 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.372 2018/08/14 18:24:04 raeburn Exp $
+# $Id: lonhomework.pm,v 1.373 2018/09/18 14:30:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1879,6 +1879,8 @@
                     my ($cdom,$cnum) = ($1,$2);
                     my $ckey = $item->{'lti'}->{'key'};
                     my $secret = $item->{'lti'}->{'secret'};
+                    my $msgformat = $item->{'lti'}->{'passbackformat'};
+                    my $sigmethod = 'HMAC-SHA1';
                     my $id = $item->{'pbid'};
                     my $url = $item->{'pburl'};
                     my $scope = $item->{'scope'};
@@ -1897,7 +1899,8 @@
                         ($total,$possible) = &get_lti_score($uname,$udom);
                     }
                     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);
                     }
                 }
             }