loncom/lti/ltiutils.pm - diff

Return to ltiutils.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.13, 2018/08/12 02:24:42	version 1.14, 2018/08/14 17:24:21
Line 276 sub verify_lis_item {	Line 276 sub verify_lis_item {
my ($has_action, $valid_for);	my ($has_action, $valid_for);
if ($context eq 'grade') {	if ($context eq 'grade') {
$has_action = $ltitools->{'passback'};	$has_action = $ltitools->{'passback'};
$valid_for = $ltitools->{'passbackvalid'}	$valid_for = $ltitools->{'passbackvalid'} * 86400; # convert days to seconds
} elsif ($context eq 'roster') {	} elsif ($context eq 'roster') {
$has_action = $ltitools->{'roster'};	$has_action = $ltitools->{'roster'};
$valid_for = $ltitools->{'rostervalid'};	$valid_for = $ltitools->{'rostervalid'};
Line 382 sub set_service_secret {	Line 382 sub set_service_secret {
my $warning;	my $warning;
my ($needsnew,$oldsecret,$lifetime);	my ($needsnew,$oldsecret,$lifetime);
if ($name eq 'grade') {	if ($name eq 'grade') {
$lifetime = $ltitools->{'passbackvalid'}	$lifetime = $ltitools->{'passbackvalid'} * 86400; # convert days to seconds
} elsif ($name eq 'roster') {	} elsif ($name eq 'roster') {
$lifetime = $ltitools->{'rostervalid'};	$lifetime = $ltitools->{'rostervalid'};
}	}
if ($toolsettings->{$name} eq '') {	if ($toolsettings->{$name.'secret'} eq '') {
$needsnew = 1;	$needsnew = 1;
} elsif (($toolsettings->{$name.'date'} + $lifetime) < $now) {	} elsif (($toolsettings->{$name.'secretdate'} + $lifetime) < $now) {
$oldsecret = $toolsettings->{$name.'secret'};	$oldsecret = $toolsettings->{$name.'secret'};
$needsnew = 1;	$needsnew = 1;
}	}