Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.62 -r1.63
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	28 Feb 2006 03:22:26 -0000	1.62
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	4 Jun 2006 00:45:47 -0000	1.63
@@ -2520,7 +2520,7 @@
             cd [file dirname $file]
             ns_log notice "\n DAVEB pghost = '${pghost}' pgport = '${pgport}' pguser = '${pguser}' \n"
             if { $tcl_platform(platform) == "windows" } {
-                set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database]" "r"]
+                set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database] $pgpass" "r"]
             } else {
                 set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database] $pgpass" "r"]
             }
@@ -3458,3 +3458,12 @@
         }
     }
 }
+
+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
+    }
+}