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 /LedgerSMB/User.pm | |
| 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
Diffstat (limited to 'LedgerSMB/User.pm')
| -rwxr-xr-x | LedgerSMB/User.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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 ($?){ |