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 285b2ce02c09910dc17e44cfb234461680038064..578fa711ed1622028544613ce32b46efc8f73a04 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -322,7 +322,7 @@ db_record_build <- function(package, deb_version, log, success=F) {
     if (end > max_log_len) {
         log <- db_quote(substr(log,end-max_log_len,end))
     } else {
-        log <- db_quote(substr(log))
+        log <- db_quote(log)
     }
     con <- db_start()
     o <- options(digits.secs = 6)
@@ -341,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)