--- trunk2/lib/WebPAC.pm 2004/09/21 16:53:44 458 +++ trunk2/lib/WebPAC.pm 2004/09/21 19:08:11 459 @@ -361,6 +361,8 @@ $self->{'last_curr'} = undef; } + $self->{'last_t'} ||= time(); + if ($p != $self->{'last_pcnt'}) { my $last_curr = $self->{'last_curr'} || $curr;