projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GetModels Filtered: neuer Modifer »any« für logisches oder
[kivitendo-erp.git]
/
sql
/
Pg-upgrade2
/
fix_acc_trans_ap_taxkey_bug.pl
diff --git
a/sql/Pg-upgrade2/fix_acc_trans_ap_taxkey_bug.pl
b/sql/Pg-upgrade2/fix_acc_trans_ap_taxkey_bug.pl
index
4b1c962
..
f1b2b89
100644
(file)
--- a/
sql/Pg-upgrade2/fix_acc_trans_ap_taxkey_bug.pl
+++ b/
sql/Pg-upgrade2/fix_acc_trans_ap_taxkey_bug.pl
@@
-1,28
+1,16
@@
# @tag: fix_acc_trans_ap_taxkey_bug
# @tag: fix_acc_trans_ap_taxkey_bug
-# @description: Korrektur falscher Steuerschl
ü
ssel in acc_trans bei Eingangsrechnungen
+# @description: Korrektur falscher Steuerschl
ü
ssel in acc_trans bei Eingangsrechnungen
# @depends: release_2_6_0
# @depends: release_2_6_0
+package SL::DBUpgrade2::fix_acc_trans_ap_taxkey_bug;
use strict;
use strict;
+use utf8;
-
die "This script cannot be run from the command line." unless $::form
;
+
use parent qw(SL::DBUpgrade2::Base)
;
-sub mydberror {
- my $msg = shift;
- die $dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr;
-}
-
-sub do_query {
- my $query = shift;
- my $may_fail = shift;
+sub run {
+ my ($self) = @_;
- if (!$dbh->do($query)) {
- mydberror($query) unless $may_fail;
- $dbh->rollback();
- $dbh->begin_work();
- }
-}
-
-sub do_update {
my $q_find = <<SQL;
SELECT * FROM (
SELECT
my $q_find = <<SQL;
SELECT * FROM (
SELECT
@@
-86,25
+74,25
@@
SQL
WHERE acc_trans_id = ?
SQL
WHERE acc_trans_id = ?
SQL
- my $h_find = $
dbh->prepare($q_find) || mydb
error($q_find);
- my $h_change = $
dbh->prepare($q_change) || mydb
error($q_change);
+ my $h_find = $
self->dbh->prepare($q_find) || $self->db_
error($q_find);
+ my $h_change = $
self->dbh->prepare($q_change) || $self->db_
error($q_change);
- $h_find->execute() ||
mydb
error($q_find);
+ $h_find->execute() ||
$self->db_
error($q_find);
my $num_changed = 0;
while (my $ref = $h_find->fetchrow_hashref()) {
# $::lxdebug->dump(0, "ref", $ref);
my $num_changed = 0;
while (my $ref = $h_find->fetchrow_hashref()) {
# $::lxdebug->dump(0, "ref", $ref);
- $h_change->execute($ref->{wanted_taxkey}, $ref->{acc_trans_id}) ||
mydb
error($q_change);
+ $h_change->execute($ref->{wanted_taxkey}, $ref->{acc_trans_id}) ||
$self->db_
error($q_change);
$num_changed++;
}
$h_find->finish();
$h_change->finish();
$num_changed++;
}
$h_find->finish();
$h_change->finish();
- print $dbup_locale->text('Number of entries changed: #1', $num_changed) . "<br/>\n";
-}
+# print $::locale->text('Number of entries changed: #1', $num_changed) . "<br/>\n";
-
do_update()
;
-return 1;
+
return 1
;
+}
+1;