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 -N -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	17 May 2001 05:35:35 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	30 May 2001 20:53:00 -0000	1.9
@@ -56,7 +56,7 @@
 } {
     set start_time [clock clicks]
 
-    ns_log Notice "PRE-QD: the SQL is $pre_sql for $statement_name"
+    db_qd_log Notice "PRE-QD: the SQL is $pre_sql for $statement_name"
 
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]
@@ -66,7 +66,7 @@
         set sql [uplevel $ulevel [list subst -nobackslashes $sql]]
     }
 
-    ns_log Notice "POST-QD: the SQL is $sql"
+    db_qd_log Notice "POST-QD: the SQL is $sql"
 
     set errno [catch {
 	upvar bind bind
@@ -200,7 +200,7 @@
 } {
     set start_time [clock clicks]
 
-    ns_log Notice "PRE-QD: the SQL is $pre_sql for $statement_name"
+    db_qd_log Notice "PRE-QD: the SQL is $pre_sql for $statement_name"
 
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]
@@ -223,7 +223,7 @@
         ns_log Notice "db_exec_lob: blob storage in use"
     }
 
-    ns_log Notice "POST-QD: the SQL is $sql"
+    db_qd_log Notice "POST-QD: the SQL is $sql"
 
     set errno [catch {
 	upvar bind bind