Revision d4b0fa31
Von Bernd Bleßmann vor mehr als 7 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 57 | 57 |
fa_steuerberater_street fa_steuerberater_tel fa_voranmeld); |
| 58 | 58 |
|
| 59 | 59 |
my @fiamt_finanzamt = qw( |
| 60 |
fa_land_nr fa_bufa_nr fa_name fa_strasse
|
|
| 60 |
fa_land_nr fa_bufa_nr fa_name fa_strasse |
|
| 61 | 61 |
fa_plz fa_ort fa_telefon fa_fax |
| 62 |
fa_plz_grosskunden fa_plz_postfach fa_postfach
|
|
| 62 |
fa_plz_grosskunden fa_plz_postfach fa_postfach |
|
| 63 | 63 |
fa_blz_1 fa_kontonummer_1 fa_bankbezeichnung_1 |
| 64 | 64 |
fa_blz_2 fa_kontonummer_2 fa_bankbezeichnung_2 fa_oeffnungszeiten |
| 65 | 65 |
fa_email fa_internet); |
| ... | ... | |
| 1119 | 1119 |
# remove any trailing whitespace |
| 1120 | 1120 |
s/^\s*(.*?)\s*$/$1/; |
| 1121 | 1121 |
my ($key, $value) = split(/=/, $_, 2); |
| 1122 |
|
|
| 1122 |
|
|
| 1123 | 1123 |
$main::lxdebug->message(LXDebug->DEBUG2(), "oldkey: ".$key." val=".$value." newkey=". |
| 1124 | 1124 |
$oldkeys{$key}." oval=".$::form->{$oldkeys{$key}});
|
| 1125 | 1125 |
if ( $oldkeys{$key} && $::form->{$oldkeys{$key}} eq '' ) {
|
Auch abrufbar als: Unified diff
USTVA: Leerzeichen am Zeilenende entfernt