X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=sql%2FPg-upgrade2%2Ffix_acc_trans_ap_taxkey_bug.pl;h=f1b2b898e6fa966db8a2980c48f288fc625ec1ca;hb=89b0d17509757b41f64081630b7616e15cbc1e66;hp=a2e70f9441c9a96d3ba259cefbccee7ccd4bd76c;hpb=0a0de6a62c138e156275169601087754b4469097;p=kivitendo-erp.git
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 a2e70f944..f1b2b898e 100644
--- 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
-# @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
+package SL::DBUpgrade2::fix_acc_trans_ap_taxkey_bug;
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:") . "
$msg
" . $DBI::errstr;
-}
-
-sub do_query {
- my $query = shift;
- my $may_fail = shift;
-
- if (!$dbh->do($query)) {
- mydberror($query) unless $may_fail;
- $dbh->rollback();
- $dbh->begin_work();
- }
-}
+sub run {
+ my ($self) = @_;
-sub do_update {
my $q_find = <prepare($q_find) || mydberror($q_find);
- my $h_change = $dbh->prepare($q_change) || mydberror($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() || mydberror($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);
- $h_change->execute($ref->{wanted_taxkey}, $ref->{acc_trans_id}) || mydberror($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();
- print $dbup_locale->text('Number of entries changed: #1', $num_changed) . "
\n";
+# print $::locale->text('Number of entries changed: #1', $num_changed) . "
\n";
+
+ return 1;
}
-do_update();
+1;