Revision 540030ff
Von Bernd Blessmann vor fast 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 328 | 328 |
} |
| 329 | 329 |
|
| 330 | 330 |
# preselection chart type |
| 331 |
my $select_charttype = q{};
|
|
| 332 |
|
|
| 333 |
my %charttype = ( |
|
| 334 |
'A' => $locale->text('Account'),
|
|
| 335 |
'H' => $locale->text('Heading'),
|
|
| 336 |
); |
|
| 337 |
|
|
| 338 |
foreach my $item ( sort({ $a <=> $b } keys %charttype) ) {
|
|
| 339 |
if ($item eq $form->{charttype}) {
|
|
| 340 |
$select_charttype .= qq|<option value="$item" selected="selected">$charttype{$item}\n|;
|
|
| 341 |
|
|
| 342 |
} else {
|
|
| 343 |
$select_charttype .= qq|<option value="$item">$charttype{$item}\n|;
|
|
| 344 |
} |
|
| 331 |
my @all_charttypes = ({'name' => $locale->text('Account'), 'value' => 'A'},
|
|
| 332 |
{'name' => $locale->text('Heading'), 'value' => 'H'},
|
|
| 333 |
); |
|
| 334 |
my $selected_charttype = $form->{charttype};
|
|
| 345 | 335 |
|
| 346 |
} |
|
| 347 | 336 |
|
| 348 | 337 |
# account where AR_tax or AP_tax is set are not orphaned if they are used as |
| 349 | 338 |
# tax-o-matic account |
| ... | ... | |
| 362 | 351 |
ChartTypeIsAccount => $ChartTypeIsAccount, |
| 363 | 352 |
AccountIsPosted => $AccountIsPosted, |
| 364 | 353 |
select_category => $select_category, |
| 365 |
select_charttype => $select_charttype, |
|
| 354 |
all_charttypes => \@all_charttypes, |
|
| 355 |
selected_charttype => $selected_charttype, |
|
| 366 | 356 |
select_bwa => $select_bwa, |
| 367 | 357 |
select_bilanz => $select_bilanz, |
| 368 | 358 |
select_eur => $select_eur, |
Auch abrufbar als: Unified diff
Bugfix für 1648 - bebuchte Konten sollten nicht in Überschriften umgewandelt werden können
wird jetzt auf der Oberfläche verhindert.