[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb: [539] trunk/LedgerSMB
- Subject: SF.net SVN: ledger-smb: [539] trunk/LedgerSMB
- From: ..hidden..
- Date: Sun, 12 Nov 2006 16:37:00 -0800
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.