X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/df71b4750efd8607a7852b25f26a3b121a8ee7a1..d4b0fa31f92241c2c67b52bdb7f3aa3a64bb1a20:/SL/USTVA.pm diff --git a/SL/USTVA.pm b/SL/USTVA.pm index 33a29ddd8..28599a3fb 100644 --- a/SL/USTVA.pm +++ b/SL/USTVA.pm @@ -57,9 +57,9 @@ my @tax_office_information = ( fa_steuerberater_street fa_steuerberater_tel fa_voranmeld); my @fiamt_finanzamt = qw( - fa_land_nr fa_bufa_nr fa_name fa_strasse + fa_land_nr fa_bufa_nr fa_name fa_strasse fa_plz fa_ort fa_telefon fa_fax - fa_plz_grosskunden fa_plz_postfach fa_postfach + fa_plz_grosskunden fa_plz_postfach fa_postfach fa_blz_1 fa_kontonummer_1 fa_bankbezeichnung_1 fa_blz_2 fa_kontonummer_2 fa_bankbezeichnung_2 fa_oeffnungszeiten fa_email fa_internet); @@ -1119,7 +1119,7 @@ sub get_oldconfig { # remove any trailing whitespace s/^\s*(.*?)\s*$/$1/; my ($key, $value) = split(/=/, $_, 2); - + $main::lxdebug->message(LXDebug->DEBUG2(), "oldkey: ".$key." val=".$value." newkey=". $oldkeys{$key}." oval=".$::form->{$oldkeys{$key}}); if ( $oldkeys{$key} && $::form->{$oldkeys{$key}} eq '' ) {