Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	20 Sep 2002 22:18:16 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	17 Mar 2003 20:19:00 -0000	1.10
@@ -202,6 +202,7 @@
         -Textra_vars {}
 	-Textra_rows {}
 	-bind {}
+        -dbn {}
     }
     statement_name sql_qry Tdatadef
 } {
@@ -270,12 +271,13 @@
     </pre>
     </ul>
 
+    @param dbn The database name to use.  If empty_string, uses the default database.
 } {
 
     set full_statement_name [db_qd_get_fullname $statement_name]
 
     # This procedure needs a full rewrite!
-    db_with_handle Tdb {
+    db_with_handle -dbn $dbn Tdb {
 	# Execute the query
         set selection [db_exec select $Tdb $full_statement_name $sql_qry]
 	set Tcount 0