projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Steuernamen übersetztbar gemacht.
[kivitendo-erp.git]
/
SL
/
IC.pm
diff --git
a/SL/IC.pm
b/SL/IC.pm
index
0b8924b
..
b99ec2a
100644
(file)
--- a/
SL/IC.pm
+++ b/
SL/IC.pm
@@
-50,7
+50,7
@@
sub get_part {
my ($self, $myconfig, $form) = @_;
# connect to db
my ($self, $myconfig, $form) = @_;
# connect to db
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $sth;
my $sth;
@@
-176,7
+176,7
@@
SQL
$form->{"unit_changeable"} = $form->{orphaned};
$form->{"unit_changeable"} = $form->{orphaned};
-
$dbh->disconnect
;
+
Common::webdav_folder($form) if $::lx_office_conf{features}{webdav}
;
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
@@
-186,7
+186,7
@@
sub get_pricegroups {
my ($self, $myconfig, $form) = @_;
my ($self, $myconfig, $form) = @_;
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
# get pricegroups
my $query = qq|SELECT id, pricegroup FROM pricegroup ORDER BY lower(pricegroup)|;
# get pricegroups
my $query = qq|SELECT id, pricegroup FROM pricegroup ORDER BY lower(pricegroup)|;
@@
-204,8
+204,6
@@
sub get_pricegroups {
#correct rows
$form->{price_rows} = $i - 1;
#correct rows
$form->{price_rows} = $i - 1;
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
return $pricegroups;
$main::lxdebug->leave_sub();
return $pricegroups;
@@
-218,7
+216,7
@@
sub retrieve_buchungsgruppen {
my ($query, $sth);
my ($query, $sth);
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
# get buchungsgruppen
$query = qq|SELECT id, description FROM buchungsgruppen ORDER BY sortkey|;
# get buchungsgruppen
$query = qq|SELECT id, description FROM buchungsgruppen ORDER BY sortkey|;
@@
-551,7
+549,7
@@
sub retrieve_assemblies {
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $where = qq|NOT p.obsolete|;
my @values;
my $where = qq|NOT p.obsolete|;
my @values;
@@
-578,8
+576,6
@@
sub retrieve_assemblies {
$form->{assembly_items} = selectall_hashref_query($form, $dbh, $query, @values);
$form->{assembly_items} = selectall_hashref_query($form, $dbh, $query, @values);
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
@@
-589,7
+585,7
@@
sub delete {
my ($self, $myconfig, $form) = @_;
my @values = (conv_i($form->{id}));
# connect to database, turn off AutoCommit
my ($self, $myconfig, $form) = @_;
my @values = (conv_i($form->{id}));
# connect to database, turn off AutoCommit
- my $dbh = $form->
dbconnect_noauto($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my %columns = ( "assembly" => "id", "parts" => "id" );
my %columns = ( "assembly" => "id", "parts" => "id" );
@@
-600,7
+596,6
@@
sub delete {
# commit
my $rc = $dbh->commit;
# commit
my $rc = $dbh->commit;
- $dbh->disconnect;
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
@@
-643,7
+638,7
@@
sub assembly_item {
}
# connect to database
}
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $query =
qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
my $query =
qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
@@
-655,8
+650,6
@@
sub assembly_item {
WHERE $where|;
$form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
WHERE $where|;
$form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
@@
-1203,7
+1196,7
@@
sub update_prices {
my $num_updated = 0;
# connect to database
my $num_updated = 0;
# connect to database
- my $dbh = $form->
dbconnect_noauto($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
for my $column (qw(sellprice listprice)) {
next if ($form->{$column} eq "");
for my $column (qw(sellprice listprice)) {
next if ($form->{$column} eq "");
@@
-1264,7
+1257,6
@@
sub update_prices {
$sth_multiply->finish();
my $rc= $dbh->commit;
$sth_multiply->finish();
my $rc= $dbh->commit;
- $dbh->disconnect;
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
@@
-1277,7
+1269,7
@@
sub create_links {
my ($self, $module, $myconfig, $form) = @_;
# connect to database
my ($self, $module, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my @values = ('%' . $module . '%');
my $query;
my @values = ('%' . $module . '%');
my $query;
@@
-1333,7
+1325,6
@@
sub create_links {
($form->{priceupdate}) = selectrow_query($form, $dbh, qq|SELECT current_date|);
}
($form->{priceupdate}) = selectrow_query($form, $dbh, qq|SELECT current_date|);
}
- $dbh->disconnect;
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
@@
-1342,7
+1333,7
@@
sub get_parts {
$main::lxdebug->enter_sub();
my ($self, $myconfig, $form, $sortorder) = @_;
$main::lxdebug->enter_sub();
my ($self, $myconfig, $form, $sortorder) = @_;
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $order = qq| p.partnumber|;
my $where = qq|1 = 1|;
my @values;
my $order = qq| p.partnumber|;
my $where = qq|1 = 1|;
my @values;
@@
-1385,7
+1376,6
@@
sub get_parts {
} #while
$form->{rows} = $j;
$sth->finish;
} #while
$form->{rows} = $j;
$sth->finish;
- $dbh->disconnect;
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
@@
-1413,7
+1403,7
@@
sub retrieve_languages {
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my @values;
my $where;
my @values;
my $where;
@@
-1435,8
+1425,6
@@
sub retrieve_languages {
my $languages = selectall_hashref_query($form, $dbh, $query, @values);
my $languages = selectall_hashref_query($form, $dbh, $query, @values);
- $dbh->disconnect;
-
$main::lxdebug->leave_sub();
return $languages;
$main::lxdebug->leave_sub();
return $languages;