SF.net SVN: ledger-smb: [840] branches/1.2/LedgerSMB

[..hidden..]

Revision: 840
          http://svn.sourceforge.net/ledger-smb/?rev=840&view=rev
Author:   einhverfr
Date:     2007-03-02 12:08:31 -0800 (Fri, 02 Mar 2007)

Log Message:
-----------
Fixing db creation to use tcp/ip sockets

Modified Paths:
--------------
    branches/1.2/LedgerSMB/CreditCard/TrustCommerce.pm
    branches/1.2/LedgerSMB/User.pm

Modified: branches/1.2/LedgerSMB/CreditCard/TrustCommerce.pm
===================================================================
--- branches/1.2/LedgerSMB/CreditCard/TrustCommerce.pm	2007-03-02 01:41:20 UTC (rev 839)
+++ branches/1.2/LedgerSMB/CreditCard/TrustCommerce.pm	2007-03-02 20:08:31 UTC (rev 840)
@@ -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;

Modified: branches/1.2/LedgerSMB/User.pm
===================================================================
--- branches/1.2/LedgerSMB/User.pm	2007-03-02 01:41:20 UTC (rev 839)
+++ branches/1.2/LedgerSMB/User.pm	2007-03-02 20:08:31 UTC (rev 840)
@@ -368,7 +368,10 @@
 	}
 	#Reassign for the work below
 
+
 	&dbconnect_vars($form, $form->{db});
+
+	$form->debug;
   
 	my $dbh = DBI->connect(
 		$form->{dbconnect}, 
@@ -433,6 +436,8 @@
 	$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 ($?){


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.