--- loncom/lonnet/perl/lonnet.pm 2018/11/24 16:19:20 1.1389 +++ loncom/lonnet/perl/lonnet.pm 2018/11/25 02:27:04 1.1390 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1389 2018/11/24 16:19:20 raeburn Exp $ +# $Id: lonnet.pm,v 1.1390 2018/11/25 02:27:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -900,6 +900,7 @@ sub userload { while ($filename=readdir(LONIDS)) { next if ($filename eq '.' || $filename eq '..'); next if ($filename =~ /publicuser_\d+\.id/); + next if ($filename =~ /^[a-f0-9]+_linked\.id$/); my ($mtime)=(stat($perlvar{'lonIDsDir'}.'/'.$filename))[9]; if ($curtime-$mtime < 1800) { $numusers++; } }