loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1392, 2018/12/05 03:29:11	version 1.1393, 2018/12/05 21:36:18
Line 1643 sub check_balancer_result {	Line 1643 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 5353 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;