return(as.integer(dbGetQuery(con, 'SELECT max(version) FROM database_versions')[[1]]))
}
+## this is just wrong. It should never return anything greater than 0.
db_base_epoch <- function(con) {
- return(as.integer(dbGetQuery(con,
- paste('SELECT max(base_epoch) FROM database_versions'
- ,'WHERE version IN (SELECT max(version) FROM database_versions)'))[[1]]))
+ return(0)
+### return(as.integer(dbGetQuery(con,
+### paste('SELECT max(base_epoch) FROM database_versions'
+### ,'WHERE version IN (SELECT max(version) FROM database_versions)'))[[1]]))
}
db_get_base_epoch <- function() {
} else if (0 == nrow(build)) {
return(NULL)
}
- return(version_new(build$r_version, build$deb_revision, build$deb_epoch))
+ return(version_new(build$r_version, pkgname=pkgname, build$deb_revision, build$deb_epoch))
}
db_latest_build_status <- function(pkgname,verbose=FALSE) {
return(packages)
}
+db_epoch_override <- function(pkgname) {
+ con <- db_start()
+ epoch.override <- dbGetQuery(con,paste('SELECT epoch FROM epoch_override WHERE package = ',db_quote(pkgname)))
+ print(c("pkgname: ",pkgname))
+ print(epoch.override)
+ db_stop(con)
+ if(NROW(epoch.override)>=1) {
+ return(epoch.override$epoch[1])
+ } else {
+ return(0)
+ }
+}
+
+
db_blacklist_reasons <- function () {
con <- db_start()
packages <- dbGetQuery(con,'SELECT package,explanation from blacklist_packages group by explanation')