From 5c4a83b24dce711003452dfa391c7fe6fd48dc24 Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 16 Mar 2009 20:21:39 +0000
Subject: [PATCH] delete build logs of everything not in the list of currently
 available packages

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@200 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 trunk/R/db.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/trunk/R/db.R b/trunk/R/db.R
index c5ddcca..9e09f24 100644
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -292,6 +292,7 @@ db_update_package_versions <- function() {
                              ,'VALUES (',db_quote(package)
                              ,',',db_quote(available[package,'Version']),')'))
     }
+    dbGetQuery(con,'DELETE FROM builds WHERE builds.package NOT IN (SELECT package FROM packages)')
     db_stop(con)
 }
 
-- 
2.39.5