X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2FSKR04-3804-addition.pl;h=23630765f12d38def833ba326b2b86b0123ac66f;hb=c696ba272784e16fbac7e3e9a09f2e18eb469217;hp=ccea7e901ce2a39b3680290026e0e59a9665bcc3;hpb=52f442eaa1bbd1204a90194f7ad35505260c8241;p=kivitendo-erp.git diff --git a/sql/Pg-upgrade2/SKR04-3804-addition.pl b/sql/Pg-upgrade2/SKR04-3804-addition.pl index ccea7e901..23630765f 100644 --- a/sql/Pg-upgrade2/SKR04-3804-addition.pl +++ b/sql/Pg-upgrade2/SKR04-3804-addition.pl @@ -3,6 +3,7 @@ # @depends: # @charset: UTF-8 +use utf8; use strict; die("This script cannot be run from the command line.") unless ($main::form); @@ -29,7 +30,7 @@ sub do_update { my ($kontenrahmen) = $dbh->selectrow_array("select coa from defaults"); unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) { - print "Kontenrahmen ist nicht SKR04, überspringen
"; + print "Kontenrahmen ist nicht SKR04, überspringen
"; return 1; }; @@ -42,7 +43,7 @@ sub do_update { if ( $anzahl_buchungen > 0 ) { if ($main::form->{bookings_exist} ) { # Benutzer hat Meldung bestätigt - print "Buchungen nach dem 01.01.2007 existierten, Upgrade überspringen"; + print "Buchungen nach dem 01.01.2007 existierten, Upgrade überspringen"; return 1; } else { # Meldung anzeigen und auf Rückgabe warten @@ -59,7 +60,7 @@ sub do_update { if ($main::form->{account_exists} ) { # Benutzer hat Meldung bestätigt - print "Konto existiert, Upgrade überspringen\n"; + print "Konto existiert, Upgrade überspringen\n"; return 1; } else { # Meldung anzeigen und auf Rückgabe warten