From 979564fb66e425662d83b4a26f6e4af1996eb3f1 Mon Sep 17 00:00:00 2001 From: blundellc Date: Sat, 13 Sep 2008 13:17:39 +0000 Subject: [PATCH] cran2deb: oops. correct two cut'n'pastos in previous commit. git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@53 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- pkg/trunk/R/db.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R index a52f6d6..1c53374 100644 --- a/pkg/trunk/R/db.R +++ b/pkg/trunk/R/db.R @@ -47,13 +47,13 @@ db.add.sysreq.override <- function(pattern,debian_name) { db.stop(con) } -db.license.override.name <- function(license_name) { +db.license.override.name <- function(name) { con <- db.start() results <- dbGetQuery(con,paste( 'SELECT accept FROM license_override WHERE' - ,db.quote(license_name),'= name')) + ,db.quote(name),'= name')) db.stop(con) - return(results$debian_name) + return(results$accept) } db.add.license.override.name <- function(name,accept) { @@ -73,7 +73,7 @@ db.license.override.file <- function(file_sha1) { 'SELECT accept FROM license_override WHERE' ,db.quote(file_sha1),'= file_sha1')) db.stop(con) - return(results$debian_name) + return(results$accept) } db.add.license.override.file <- function(name,file_sha1,accept) { -- 2.39.2