|
version 1.4, 2018/01/04 12:09:42
|
version 1.5, 2018/01/04 12:19:25
|
|
Line 286 sub verify_lis_item {
|
Line 286 sub verify_lis_item {
|
| my $expected_sig; |
my $expected_sig; |
| if ($context eq 'grade') { |
if ($context eq 'grade') { |
| my $uniqid = $digsymb.':::'.$diguser.':::'.$cdom.'_'.$cnum; |
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) { |
if ($expected_sig eq $sigrec) { |
| return 1; |
return 1; |
| } else { |
} else { |
|
Line 294 sub verify_lis_item {
|
Line 294 sub verify_lis_item {
|
| } |
} |
| } elsif ($context eq 'roster') { |
} elsif ($context eq 'roster') { |
| my $uniqid = $digsymb.':::'.$cdom.'_'.$cnum; |
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) { |
if ($expected_sig eq $sigrec) { |
| return 1; |
return 1; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to ltiutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lti