Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl,v
diff -u -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	5 Feb 2003 23:24:43 -0000	1.17.2.1
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	26 Feb 2003 02:25:00 -0000	1.17.2.2
@@ -56,18 +56,13 @@
 } {
     set start_time [clock clicks]
 
-    db_qd_log QDDebug "PRE-QD: the SQL is $pre_sql for $statement_name"
-
-    # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
     # insert tcl variable values (Openacs - Dan)
     if {![string equal $sql $pre_sql]} {
         set sql [uplevel $ulevel [list subst -nobackslashes $sql]]
     }
 
-    db_qd_log QDDebug "POST-QD: the SQL is $sql"
-
     set errno [catch {
 	upvar bind bind
 	if { [info exists bind] && [llength $bind] != 0 } {
@@ -188,8 +183,6 @@
 } {
     set start_time [clock clicks]
 
-    db_qd_log QDDebug "PRE-QD: the SQL is $pre_sql for $statement_name"
-
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
@@ -205,14 +198,12 @@
         set file_storage_p 1
         set original_type $type
         set qtype 1row
-        ns_log Notice "db_exec_lob: file storage in use"
+        ns_log Debug "db_exec_lob: file storage in use"
     } else {
         set qtype $type
-        ns_log Notice "db_exec_lob: blob storage in use"
+        ns_log Debug "db_exec_lob: blob storage in use"
     }
 
-    db_qd_log QDDebug "POST-QD: the SQL is $sql"
-
     set errno [catch {
 	upvar bind bind
 	if { [info exists bind] && [llength $bind] != 0 } {