X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2Fcharts_without_taxkey.pl;h=7ca9cb805a88bbcfde2d8a729eedc128b42e2059;hb=2da5d610ce0aeb43428de82e6b5e79acfb502628;hp=8f4841a80be226db27a612e45ef699c52bd456eb;hpb=2c86cb0ad16866113be6e6d8dff239623b77a576;p=kivitendo-erp.git
diff --git a/sql/Pg-upgrade2/charts_without_taxkey.pl b/sql/Pg-upgrade2/charts_without_taxkey.pl
index 8f4841a80..7ca9cb805 100644
--- a/sql/Pg-upgrade2/charts_without_taxkey.pl
+++ b/sql/Pg-upgrade2/charts_without_taxkey.pl
@@ -1,64 +1,49 @@
# @tag: charts_without_taxkey
-# @description: Fügt für jedes Konto, was keien Steuerschlüssel hat, den Steuerschlüssel 0 hinzu
-# @depends:
-# @charset: UTF-8
+# @description: Fügt für jedes Konto, was keinen Steuerschlüssel hat, den Steuerschlüssel 0 hinzu
+# @depends: release_3_0_0
+package SL::DBUpgrade2::charts_without_taxkey;
-use utf8;
use strict;
-use SL::Locale;
-
-die("This script cannot be run from the command line.") unless ($main::form);
-
-sub mydberror {
- my ($msg) = @_;
- die($dbup_locale->text("Database update error:") . "
$msg
" . $DBI::errstr);
-}
-
-sub do_query {
- my ($query, $may_fail) = @_;
+use utf8;
- if (!$dbh->do($query)) {
- mydberror($query) unless ($may_fail);
- $dbh->rollback();
- $dbh->begin_work();
- }
-}
+use parent qw(SL::DBUpgrade2::Base);
+sub run {
+ my ($self) = @_;
-sub do_update {
- my ($taxkey0_with_taxes_exists) = $dbh->selectrow_array("SELECT COUNT(*) FROM tax WHERE taxkey=0 AND NOT rate=0;");
+ my ($taxkey0_with_taxes_exists) = $self->dbh->selectrow_array("SELECT COUNT(*) FROM tax WHERE taxkey=0 AND NOT rate=0;");
if ($taxkey0_with_taxes_exists > 0){
print_error_message();
return 0;
}
- my ($taxkey0_exists) = $dbh->selectrow_array("SELECT COUNT(*) FROM tax WHERE taxkey=0");
+ my ($taxkey0_exists) = $self->dbh->selectrow_array("SELECT COUNT(*) FROM tax WHERE taxkey=0");
if ($taxkey0_exists == 0){
my $insert_taxkey0 = <db_query($insert_taxkey0);
print $::locale->text("taxkey 0 with taxrate 0 was created.");
};
-
+
my $insert_taxkeys = <db_query($insert_taxkeys);
return 1;
-}; # end do_update
+} # end run
sub print_error_message {
- print $main::form->parse_html_template("dbupgrade/taxkey_update");
-};
+ print $::form->parse_html_template("dbupgrade/taxkey_update");
+}
-return do_update();
+1;