--- loncom/lti/ltiutils.pm 2018/01/04 12:09:42 1.4 +++ loncom/lti/ltiutils.pm 2018/01/04 12:19:25 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA LTI interactions # -# $Id: ltiutils.pm,v 1.4 2018/01/04 12:09:42 raeburn Exp $ +# $Id: ltiutils.pm,v 1.5 2018/01/04 12:19:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -286,7 +286,7 @@ sub verify_lis_item { my $expected_sig; if ($context eq 'grade') { my $uniqid = $digsymb.':::'.$diguser.':::'.$cdom.'_'.$cnum; - $expected_sig = &get_service_id($secret,$uniqid); + $expected_sig = (split(/:::/,&get_service_id($secret,$uniqid)))[0]; if ($expected_sig eq $sigrec) { return 1; } else { @@ -294,7 +294,7 @@ sub verify_lis_item { } } elsif ($context eq 'roster') { my $uniqid = $digsymb.':::'.$cdom.'_'.$cnum; - $expected_sig = &get_service_id($secret,$uniqid); + $expected_sig = (split(/:::/,&get_service_id($secret,$uniqid)))[0]; if ($expected_sig eq $sigrec) { return 1; } else {