diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-02 20:08:31 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-02 20:08:31 +0000 |
| commit | 230a7149c35a3b68e14a261ef5238a7c8d1cc2e8 (patch) | |
| tree | 4c85e83bd8c19a0f06e1d609538bbf3ef68902ff | |
| parent | 158a6359100ac06b1780af7686d649d2d9b2d05d (diff) | |
Fixing db creation to use tcp/ip sockets
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@840 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/CreditCard/TrustCommerce.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/User.pm | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/LedgerSMB/CreditCard/TrustCommerce.pm b/LedgerSMB/CreditCard/TrustCommerce.pm index e0adb395..7b75530d 100644 --- a/LedgerSMB/CreditCard/TrustCommerce.pm +++ b/LedgerSMB/CreditCard/TrustCommerce.pm @@ -15,7 +15,7 @@ # # Simple TrustCommerce API using Net::TCLink -package TrustCommerce; +package LedgerSMB::CreditCard::TrustCommerce; use LedgerSMB::CreditCard::Config; use LedgerSMB::CreditCard::TrustCommerce::Config; use Net::TCLink; diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 6e4a872e..311c412c 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -368,7 +368,10 @@ sub dbcreate { } #Reassign for the work below + &dbconnect_vars($form, $form->{db}); + + $form->debug; my $dbh = DBI->connect( $form->{dbconnect}, @@ -433,6 +436,8 @@ sub process_query { $ENV{PGPASSWORD} = $form->{dbpasswd}; $ENV{PGUSER} = $form->{dbuser}; $ENV{PGDATABASE} = $form->{db}; + $ENV{PGHOST} = $form->{dbhost}; + $ENV{PGPORT} = $form->{dbport}; $results = `psql -f $filename 2>&1`; if ($?){ |