Diff for /loncom/lond between versions 1.562 and 1.563

version 1.562, 2020/05/04 17:05:10 version 1.563, 2020/05/05 20:24:41
Line 4891  sub course_sessions_handler { Line 4891  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;
             }              }

Removed from v.1.562  
changed lines
  Added in v.1.563


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>