some debugging statements added and currently commented-out

[cran2deb.git] / trunk / R / db.R

diff --git a/trunk/R/db.R b/trunk/R/db.R
index b8a37e2398c5bf09b06cee1cbfaf3cef4a54295d..578fa711ed1622028544613ce32b46efc8f73a04 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(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'
@@ -339,7 +341,7 @@ db_record_build <- function(package, deb_version, log, success=F) {
                     ,',',db_quote(scm_revision)
                     ,',',log
                     ,')')
-    print(sqlcmd)
+    ##print(sqlcmd)
     try(dbGetQuery(con,sqlcmd))
     options(o)
     db_stop(con)