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.58.2.1 -r1.58.2.2
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	16 Jun 2005 00:24:52 -0000	1.58.2.1
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	18 Jul 2005 17:24:11 -0000	1.58.2.2
@@ -3245,3 +3245,12 @@
 
     return -code $errno -errorinfo $errinfo -errorcode $errcode $error
 }
+
+ad_proc -public db_bounce_pools {{ -dbn "" }} { 
+    @return Call ns_db bouncepool on all pools for the named database.
+    @param dbn The database name to use.  Uses the default database if not supplied.
+} {
+    foreach pool [db_available_pools $dbn] {
+        ns_db bouncepool $pool
+    }
+}