diff options
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 ($?){ |