|
version 1.1392, 2018/12/05 03:29:11
|
version 1.1394, 2018/12/08 15:17:25
|
|
Line 711 sub check_for_valid_session {
|
Line 711 sub check_for_valid_session {
|
| |
|
| if (!defined($disk_env{'user.name'}) |
if (!defined($disk_env{'user.name'}) |
| || !defined($disk_env{'user.domain'})) { |
|| !defined($disk_env{'user.domain'})) { |
| |
untie(%disk_env); |
| return undef; |
return undef; |
| } |
} |
| |
|
|
Line 723 sub check_for_valid_session {
|
Line 724 sub check_for_valid_session {
|
| $userhashref->{'ltiuri'} = $disk_env{'request.lti.uri'}; |
$userhashref->{'ltiuri'} = $disk_env{'request.lti.uri'}; |
| } |
} |
| } |
} |
| |
untie(%disk_env); |
| |
|
| return $handle; |
return $handle; |
| } |
} |
|
Line 1643 sub check_balancer_result {
|
Line 1645 sub check_balancer_result {
|
| $is_balancer = 1; |
$is_balancer = 1; |
| $currtargets = $result->{'targets'}; |
$currtargets = $result->{'targets'}; |
| $currrules = $result->{'rules'}; |
$currrules = $result->{'rules'}; |
| $dom_balancers = $currbalancer; |
|
| } |
} |
| $dom_balancers = $currbalancer; |
$dom_balancers = $currbalancer; |
| } else { |
} else { |
|
Line 5354 sub set_first_access {
|
Line 5355 sub set_first_access {
|
| my $firstaccess=&get_first_access($type,$symb,$map); |
my $firstaccess=&get_first_access($type,$symb,$map); |
| if ($firstaccess) { |
if ($firstaccess) { |
| &logthis("First access time already set ($firstaccess) when attempting ". |
&logthis("First access time already set ($firstaccess) when attempting ". |
| "to set new value (type: $type, extent: $res) for $uname:$udom ". |
"to set new value (type: $type, extent: $res) for $uname:$udom ". |
| "in $courseid"); |
"in $courseid"); |
| return 'already_set'; |
return 'already_set'; |
| } else { |
} else { |
| my $start = time; |
my $start = time; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl