loncom/lond - diff - 1.489.2.38

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.489.2.37, 2020/05/04 17:08:26	version 1.489.2.38, 2020/05/05 20:28:56
Line 4593 sub course_sessions_handler {	Line 4593 sub course_sessions_handler {
my ($uname,$udom) = ($1,$2);	my ($uname,$udom) = ($1,$2);
next unless (-e "$perlvar{'lonDaemons'}/tmp/$uname$dbsuffix");	next unless (-e "$perlvar{'lonDaemons'}/tmp/$uname$dbsuffix");
my $mtime = (stat("$perlvar{'lonIDsDir'}/$filename"))[9];	my $mtime = (stat("$perlvar{'lonIDsDir'}/$filename"))[9];
my $since=$now-$mtime;
if ($lastactivity < 0) {	if ($lastactivity < 0) {
next if ($since <= $lastactivity);	next if ($mtime-$now > $lastactivity);
} else {	} else {
next if ($since > $lastactivity);	next if ($now-$mtime > $lastactivity);
}	}
$sessions{$uname.':'.$udom} = $mtime;	$sessions{$uname.':'.$udom} = $mtime;
}	}