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

diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R
index a52f6d6b847f9bc34839bb9de5c9f0ed0f81de1f..1c53374e8ba866586656905456d0443c5fd958f3 100644 (file)
--- 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) {