version 1.11, 2018/05/14 19:56:05
|
version 1.12, 2018/05/14 20:10:15
|
Line 294 sub handler {
|
Line 294 sub handler {
|
$protocol = 'https'; |
$protocol = 'https'; |
} |
} |
|
|
|
if (exists($params->{'oauth_callback'})) { |
|
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A; |
|
} else { |
|
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0; |
|
} |
|
|
my ($itemid,$consumer_key,$secret); |
my ($itemid,$consumer_key,$secret); |
$consumer_key = $params->{'oauth_consumer_key'}; |
$consumer_key = $params->{'oauth_consumer_key'}; |
if (ref($lti_by_key{$consumer_key}) eq 'ARRAY') { |
if (ref($lti_by_key{$consumer_key}) eq 'ARRAY') { |