version 1.489.2.43.2.8, 2023/07/09 00:46:44
|
version 1.489.2.43.2.10, 2023/12/29 20:10:17
|
Line 4941 sub lti_handler {
|
Line 4941 sub lti_handler {
|
# Side effects: |
# Side effects: |
# The reply will contain the LTI payload, as & separated key=value pairs, |
# The reply will contain the LTI payload, as & separated key=value pairs, |
# where value is itself a frozen hash, if the required key and secret |
# where value is itself a frozen hash, if the required key and secret |
# for the apecific tool ID are available. The payload data are retrieved from |
# for the specific tool ID are available. The payload data are retrieved from |
# a call to Lond::sign_lti_payload(), and the reply is encrypted before being |
# a call to Lond::sign_lti_payload(), and the reply is encrypted before being |
# written to $client. |
# written to $client. |
# |
# |
Line 8284 sub currentversion {
|
Line 8284 sub currentversion {
|
if (-e $ulsdir) { |
if (-e $ulsdir) { |
if(-d $ulsdir) { |
if(-d $ulsdir) { |
if (opendir(LSDIR,$ulsdir)) { |
if (opendir(LSDIR,$ulsdir)) { |
|
if (-e $fname) { |
|
$version=0; |
|
} |
my $ulsfn; |
my $ulsfn; |
while ($ulsfn=readdir(LSDIR)) { |
while ($ulsfn=readdir(LSDIR)) { |
# see if this is a regular file (ignore links produced earlier) |
# see if this is a regular file (ignore links produced earlier) |