[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb: [539] trunk/LedgerSMB



Revision: 539
          http://svn.sourceforge.net/ledger-smb/?rev=539&view=rev
Author:   einhverfr
Date:     2006-11-12 16:36:55 -0800 (Sun, 12 Nov 2006)

Log Message:
-----------
Fixing a few db connection bugs

Modified Paths:
--------------
    trunk/LedgerSMB/CT.pm
    trunk/LedgerSMB/IS.pm

Modified: trunk/LedgerSMB/CT.pm
===================================================================
--- trunk/LedgerSMB/CT.pm	2006-11-12 23:11:14 UTC (rev 538)
+++ trunk/LedgerSMB/CT.pm	2006-11-13 00:36:55 UTC (rev 539)
@@ -205,7 +205,7 @@
 	my ($self, $myconfig, $form) = @_;
 
 	# connect to database
-	my $dbh = $form->dbconnect_noauto($myconfig);
+	my $dbh = $form->{dbh};
 	my $query;
 	my $sth;
 	my $null;
@@ -575,7 +575,7 @@
 	my ($self, $myconfig, $form) = @_;
 
 	# connect to database
-	my $dbh = $form->dbconnect($myconfig);
+	my $dbh = $form->{dbh};
 
 	my $where = "1 = 1";
 	$form->{sort} = ($form->{sort}) ? $form->{sort} : "name";
@@ -867,7 +867,7 @@
 	my ($self, $myconfig, $form) = @_;
 
 	# connect to database
-	my $dbh = $form->dbconnect($myconfig);
+	my $dbh = $form->{dbh};
 
 	my $query;
 	my $where = "1 = 1";
@@ -1114,7 +1114,7 @@
 
 	my ($self, $myconfig, $form) = @_;
 
-	my $dbh = $form->dbconnect_noauto($myconfig);
+	my $dbh = $form->{dbh};
 
 	my $query = qq|
 		DELETE FROM parts$form->{db}
@@ -1187,7 +1187,7 @@
 	my ($self, $myconfig, $form) = @_;
 
 	# connect to database
-	my $dbh = $form->dbconnect($myconfig);
+	my $dbh = $form->{dbh};
 
 	my $i = $form->{rowcount};
 	my $var;

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2006-11-12 23:11:14 UTC (rev 538)
+++ trunk/LedgerSMB/IS.pm	2006-11-13 00:36:55 UTC (rev 539)
@@ -1862,8 +1862,7 @@
 sub retrieve_item {
 	my ($self, $myconfig, $form) = @_;
   
-	# connect to database
-	my $dbh = $form->dbconnect($myconfig);
+	my $dbh = $form->{dbh};
 
 	my $i = $form->{rowcount};
 	my $null;


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