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