Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 1107 | 1107 |
$::form->{title} = $::locale->text('Tax Office Preferences');
|
| 1108 | 1108 |
|
| 1109 | 1109 |
|
| 1110 |
my $select_tax_office = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form)); |
|
| 1111 |
my $checked_accrual = q|checked="checked"| if ($::form->{method} eq 'accrual');
|
|
| 1112 |
my $checked_cash = q|checked="checked"| if ($::form->{method} eq 'cash');
|
|
| 1113 |
my $checked_monthly = "checked" if ($::form->{FA_voranmeld} eq 'month');
|
|
| 1114 |
my $checked_quarterly = "checked" if ($::form->{FA_voranmeld} eq 'quarter');
|
|
| 1115 |
my $checked_dauerfristverlaengerung = "checked" if ($::form->{FA_dauerfrist} eq '1');
|
|
| 1116 |
my $checked_kz_71 = "checked" if ($::form->{FA_71} eq 'X');
|
|
| 1110 |
my $select_tax_office = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form));
|
|
| 1111 |
my $checked_accrual = $::form->{method} eq 'accrual' ? q|checked="checked"| : '';
|
|
| 1112 |
my $checked_cash = $::form->{method} eq 'cash' ? q|checked="checked"| : '';
|
|
| 1113 |
my $checked_monthly = $::form->{FA_voranmeld} eq 'month' ? "checked" : '';
|
|
| 1114 |
my $checked_quarterly = $::form->{FA_voranmeld} eq 'quarter' ? "checked" : '';
|
|
| 1115 |
my $checked_dauerfristverlaengerung = $::form->{FA_dauerfrist} eq '1' ? "checked" : '';
|
|
| 1116 |
my $checked_kz_71 = $::form->{FA_71} eq 'X' ? "checked" : '';
|
|
| 1117 | 1117 |
|
| 1118 | 1118 |
my $_hidden_variables_ref; |
| 1119 | 1119 |
|
| ... | ... | |
| 1255 | 1255 |
my $patterncount = $form->{patterncount};
|
| 1256 | 1256 |
my $elster_pattern = $form->{elster_pattern};
|
| 1257 | 1257 |
my $delimiter = $form->{delimiter};
|
| 1258 |
my $steuernummer = $form->{steuernummer} if ($stnr eq '');
|
|
| 1258 |
my $steuernummer = $stnr eq '' ? $form->{steuernummer} : '';
|
|
| 1259 | 1259 |
|
| 1260 | 1260 |
$form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
|
| 1261 | 1261 |
|
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.