add a missing quote() around sql statement part

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@289 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/trunk/R/db.R b/trunk/R/db.R
index b8a37e2398c5bf09b06cee1cbfaf3cef4a54295d..285b2ce02c09910dc17e44cfb234461680038064 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -316,14 +316,16 @@ db_record_build <- function(package, deb_version, log, success=F) {
     # Error in dbGetQuery(con, paste("INSERT OR REPLACE INTO builds", "(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)",  :
     #   error in evaluating the argument 'statement' in selecting a method for function 'dbGetQuery'
 
-    log = paste(log,collapse='\n')
-    end = nchar(log)
-    max_log_len = 1024
+    log <- paste(log,collapse='\n')
+    end <- nchar(log)
+    max_log_len <- 1024
     if (end > max_log_len) {
-        log = db_quote(substr(log,end-max_log_len,end))
+        log <- db_quote(substr(log,end-max_log_len,end))
+    } else {
+        log <- db_quote(substr(log))
     }
     con <- db_start()
-    o <-options(digits.secs = 6)
+    o <- options(digits.secs = 6)
     sqlcmd <- paste('INSERT OR REPLACE INTO builds'
                     ,'(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)'
                     ,'VALUES'