From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 7 Mar 2005 23:42:35 +0000 (+0000)
Subject: removing expire times
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8e51991f2ffc3b64a7bcf6aedadf4037a57d1d35;p=opensrf%2Fbjwebb.git

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
--- 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);
 	}