# @depends:
# @charset: UTF-8
+use utf8;
use strict;
die("This script cannot be run from the command line.") unless ($main::form);
my ($kontenrahmen) = $dbh->selectrow_array("select coa from defaults");
unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) {
- print "Kontenrahmen ist nicht SKR04, überspringen<br>";
+ print "Kontenrahmen ist nicht SKR04, überspringen<br>";
return 1;
};
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
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