From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 16 Mar 2009 20:21:39 +0000 (+0000)
Subject: delete build logs of everything not in the list of currently available packages
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5c4a83b24dce711003452dfa391c7fe6fd48dc24;p=cran2deb.git

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
---

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