From 8e51991f2ffc3b64a7bcf6aedadf4037a57d1d35 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 7 Mar 2005 23:42:35 +0000
Subject: [PATCH] removing expire times

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@200 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Application/Persist.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/perlmods/OpenSRF/Application/Persist.pm b/src/perlmods/OpenSRF/Application/Persist.pm
index 3a5e2ce..1099dba 100644
--- 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);
 	}
-- 
2.11.0