Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	19 Apr 2001 04:23:11 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	8 May 2001 11:20:32 -0000	1.4
@@ -208,9 +208,12 @@
 } {
     ad_arg_parser { bind } $args
 
+    # Query Dispatcher (OpenACS - SDW)
+    set full_statement_name [db_qd_get_fullname $statement_name]
+
     # Can't use db_foreach here, since we need to use the ns_set directly.
     db_with_handle db {
-	set selection [db_exec select $db $statement_name $sql]
+	set selection [db_exec select $db $full_statement_name $sql]
 	set result [list]
 	while { [db_getrow $db $selection] } {
 	    lappend result [ns_set value $selection 0]
@@ -226,9 +229,12 @@
 } {
     ad_arg_parser { bind } $args
 
+    # Query Dispatcher (OpenACS - SDW)
+    set full_statement_name [db_qd_get_fullname $statement_name]
+
     # Can't use db_foreach here, since we need to use the ns_set directly.
     db_with_handle db {
-	set selection [db_exec select $db $statement_name $sql]
+	set selection [db_exec select $db $full_statement_name $sql]
 
 	set result [list]