- return 1;
- } else {
- # Meldung anzeigen und auf Rückgabe warten
- print_past_booking_warning();
- return 2;
- };
- } else { # es gibt keine Buchungen mit taxkey 13 nach 01.01.2007
-
- # prüfen ob Konto 3804 schon existiert
- my ($konto_existiert) = $dbh->selectrow_array("select count (*) from chart where accno = '3804'");
- if ( $konto_existiert ) {
- # 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und
- # ordnungsgemäß benutzt
-
- if ($main::form->{account_exists} ) {
- # Benutzer hat Meldung bestätigt
- print "Konto existiert, Upgrade überspringen\n";
- return 1;
- } else {
- # Meldung anzeigen und auf Rückgabe warten
- print_3804_already_exists();
- return 2;
- };
- } else {
+ return 1;
+ }
+
+ # Meldung anzeigen und auf Rückgabe warten
+ print_past_booking_warning();
+ return 2;
+ }
+
+ # es gibt keine Buchungen mit taxkey 13 nach 01.01.2007
+
+ # prüfen ob Konto 3804 schon existiert
+ my ($konto_existiert) = $self->dbh->selectrow_array("select count (*) from chart where accno = '3804'");
+ if ( $konto_existiert ) {
+ # 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und
+ # ordnungsgemäß benutzt
+
+ return 1;
+ }