summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/CT.pm10
-rwxr-xr-xLedgerSMB/IS.pm3
2 files changed, 6 insertions, 7 deletions
diff --git a/LedgerSMB/CT.pm b/LedgerSMB/CT.pm
index c3dcdf29..be768503 100755
--- a/LedgerSMB/CT.pm
+++ b/LedgerSMB/CT.pm
@@ -205,7 +205,7 @@ sub save_customer {
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 @@ sub search {
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 @@ sub get_history {
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 @@ sub save_pricelist {
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 @@ sub retrieve_item {
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->dbconnect($myconfig);
+ my $dbh = $form->{dbh};
my $i = $form->{rowcount};
my $var;
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index dd293759..39bcfe7c 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1862,8 +1862,7 @@ sub retrieve_invoice {
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;