loncom/lond - diff - 1.489.2.37

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.489.2.36, 2020/05/04 15:15:16	version 1.489.2.37, 2020/05/04 17:08:26
Line 4589 sub course_sessions_handler {	Line 4589 sub course_sessions_handler {
next if ($filename=~/^\./);	next if ($filename=~/^\./);
next if ($filename=~/^publicuser_/);	next if ($filename=~/^publicuser_/);
next if ($filename=~/^[a-f0-9]+_(linked\|lti_\d+)\.id$/);	next if ($filename=~/^[a-f0-9]+_(linked\|lti_\d+)\.id$/);
if ($filename =~ /^($LONCAPA::match_user)_\d+_($LONCAPA::match_domain)_/) {	if ($filename =~ /^($LONCAPA::match_username)_\d+_($LONCAPA::match_domain)_/) {
my ($uname,$udom) = ($1,$2);	my ($uname,$udom) = ($1,$2);
next unless (-e "$perlvar{'lonDaemons'}/$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;	my $since=$now-$mtime;
if ($lastactivity < 0) {	if ($lastactivity < 0) {