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.108 -r1.109 --- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 25 Jul 2018 22:19:48 -0000 1.108 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 25 Jul 2018 22:20:25 -0000 1.109 @@ -201,7 +201,7 @@ # Fallback to nsv (old style), when for whatever # reasonesm, the namespaced variable is not available. # - ns_log notice "db_driverkey $handle_p dbn <$dbn> VIA NSV" + ns_log notice "db_driverkey $handle_p dbn <$dbn> VIA NSV" set dbn [nsv_get db_pool_to_dbn $pool] } else { # @@ -214,7 +214,7 @@ error "No database name (dbn) found for pool '$pool'. Check the 'ns/server/[ns_info server]/acs/database' section of your config file." } } - + set key ::acs::db_driverkey($dbn) if {[info exists $key]} { return [set $key] @@ -2575,7 +2575,7 @@ set fp [open "|[file join $::env(ORACLE_HOME) bin sqlplus] $user_pass @$file" "r+"] fconfigure $fp -buffering line puts $fp "exit" - + while { [gets $fp line] >= 0 } { # Don't bother writing out lines which are purely whitespace. if { ![string is space $line] } {