# 
# connect to database and return the connection object.  
#
####################################################################
# Patrick Finnegan 11/11/2005.  V1. 
####################################################################
namespace eval dbConnect {

    proc dbConnect { databaseName } {

	set procName [ lindex [ info level 0 ] 0 ]

	putsLog "## proc - $procName"

	foreach i [ info args $procName ]  {

	   upvar 0 $i ilocal

	   set propertiesArray($i) $ilocal 

	}

	putsLog "properties are.................."

	foreach { a b } [ array get propertiesArray ] {

	    putsLog [ format "%-35s %s" "$a" "$b" ]

	}

        global env 
        global null

        # load client driver.
        java::call Class forName org.apache.derby.jdbc.ClientDriver

        append url jdbc:derby
        append url ":" 
        append url "//" 
        append url $::env(com.ibm.ws.scripting.host)
        append url ":" 
        append url "1527" 
        append url "/" 
        append url $databaseName 

        putsLog " xxx connection URL is:  $url"   

        java::try {
            
            set ConnectionI [ java::call DriverManager getConnection $url ] 

        } catch {SQLException SQLExceptionI } {

		  catchSqlException::catchSqlException $SQLExceptionI 
              
        } catch {TclException e } {
            putsLog "TCl Exception to prepare statement $e"
            return -code error
        }

        putsLog "transaction isolation level is [ $ConnectionI getTransactionIsolation ] "

        java::lock $ConnectionI 

        return $ConnectionI 

    }

}