summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-02 20:08:31 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-02 20:08:31 +0000
commit230a7149c35a3b68e14a261ef5238a7c8d1cc2e8 (patch)
tree4c85e83bd8c19a0f06e1d609538bbf3ef68902ff /LedgerSMB
parent158a6359100ac06b1780af7686d649d2d9b2d05d (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')
-rw-r--r--LedgerSMB/CreditCard/TrustCommerce.pm2
-rwxr-xr-xLedgerSMB/User.pm5
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 ($?){