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); |
} |
} |
} |
} |
} |
} |