Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.88, 2002/08/09 17:43:30 | version 1.89, 2002/08/09 18:18:36 |
---|---|
Line 1604 sub chatadd { | Line 1604 sub chatadd { |
foreach (keys %hash) { | foreach (keys %hash) { |
my ($thistime)=($_=~/(\d+)\_/); | my ($thistime)=($_=~/(\d+)\_/); |
if ($thistime<$expired) { | if ($thistime<$expired) { |
undef $hash{$_}; | delete $hash{$_}; |
} | } |
} | } |
untie %hash; | untie %hash; |