removing expire times

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@200 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application/Persist.pm b/src/perlmods/OpenSRF/Application/Persist.pm
index 3a5e2ce..1099dba 100644 (file)
--- a/src/perlmods/OpenSRF/Application/Persist.pm
+++ b/src/perlmods/OpenSRF/Application/Persist.pm
@@ -204,6 +204,7 @@ sub _sweep_expired_slots {
        return unless ($expired_slots);
 
        $dbh->do('DELETE FROM storage WHERE name_id IN ('.join(',', map { '?' } @$expired_slots).');', {}, @$expired_slots);
+       $dbh->do('DELETE FROM store_expire WHERE id IN ('.join(',', map { '?' } @$expired_slots).');', {}, @$expired_slots);
        for my $id (@$expired_slots) {
                _flush_by_name(_get_id_name($id), 1);
        }