![[BACK]](/icons/back.gif){kind=icon}
Return to loncron CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to loncron CVS log | Up to [LON-CAPA] / loncom |
| version 1.123, 2020/05/06 14:31:59 | version 1.124, 2020/05/09 19:17:33 |
|---|---|
| Line 542 sub clean_balanceIDs { | Line 542 sub clean_balanceIDs { |
| my $cleaned=0; | my $cleaned=0; |
| my $active=0; | my $active=0; |
| if (-d $perlvar{'lonBalanceDir'}) { | if (-d $perlvar{'lonBalanceDir'}) { |
| while (my $fname=<$perlvar{'balanceDir'}/*.id>) { | while (my $fname=<$perlvar{'lonBalanceDir'}/*.id>) { |
| my ($dev,$ino,$mode,$nlink, | my ($dev,$ino,$mode,$nlink, |
| $uid,$gid,$rdev,$size, | $uid,$gid,$rdev,$size, |
| $atime,$mtime,$ctime, | $atime,$mtime,$ctime, |