Index: openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	17 Mar 2003 20:18:46 -0000	1.3
+++ openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	9 Apr 2003 22:39:58 -0000	1.4
@@ -20,7 +20,24 @@
     return [nsv_get {db_available_pools} $dbn]
 }
 
+ad_proc -private db_pool_to_dbn_init {{
+}} {
+    Simply initializes the <code>db_pool_to_dbn</code> nsv, which is
+    used by "<code>db_driverkey -handle</code>".
 
+    @author Andrew Piskorski (atp@piskorski.com)
+    @creation-date 2003/04/09
+
+    @see db_driverkey
+} {
+    foreach dbn [nsv_array names {db_available_pools}] {
+        foreach pool [db_available_pools -dbn $dbn] {
+            nsv_set {db_pool_to_dbn} $pool $dbn
+        }
+    }
+}
+
+
 ad_proc db_bootstrap_set_db_type { errors } {
 
     @author Don Baccus (dhogaza@pacifier.com)
@@ -155,6 +172,7 @@
         set pools $all_pools
         ns_log Notice "$proc_name: Using ALL database pools for OpenACS."
     }
+    db_pool_to_dbn_init
     ns_log Notice "$proc_name: The following pools are available for OpenACS: $pools"
 
     # DRB: if the user hasn't given us enough database pools might as well tell