Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/acs-tcl.info 5 Apr 2001 18:23:38 -0000 1.3
+++ openacs-4/packages/acs-tcl/acs-tcl.info 8 Apr 2001 16:13:03 -0000 1.4
@@ -70,6 +70,7 @@
+
Index: openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs-postgresql.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl 8 Apr 2001 11:41:48 -0000 1.6
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl 8 Apr 2001 16:13:03 -0000 1.7
@@ -193,7 +193,7 @@
} {
set start_time [clock clicks]
- ns_log Notice "PRE-QD: the SQL is $sql"
+ ns_log Notice "PRE-QD: the SQL is $sql for $statement_name"
# Query Dispatcher (OpenACS - ben)
set sql [db_fullquery_replace_sql $statement_name $sql]
@@ -233,8 +233,11 @@
} {
ad_arg_parser { bind } $args
+ # Query Dispatcher (OpenACS - ben)
+ set full_statement_name [db_fullquery_get_fullname $statement_name]
+
db_with_handle db {
- db_exec dml $db $statement_name $sql
+ db_exec dml $db $full_statement_name $sql
}
}