Revision 43f9b1c5
Von G. Richardson vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 774 | 774 |
} |
| 775 | 775 |
closedir SQLDIR; |
| 776 | 776 |
|
| 777 |
$form->{ACCOUNTING_METHODS} = [];
|
|
| 778 |
foreach my $item ( qw(accrual cash) ) {
|
|
| 779 |
push @{ $form->{ACCOUNTING_METHODS} }, { "name" => $item,
|
|
| 780 |
"selected" => $item eq "cash" }; |
|
| 781 |
}; |
|
| 782 |
|
|
| 783 |
$form->{INVENTORY_SYSTEMS} = [];
|
|
| 784 |
foreach my $item ( qw(perpetual periodic) ) {
|
|
| 785 |
push @{ $form->{INVENTORY_SYSTEMS} }, { "name" => $item,
|
|
| 786 |
"selected" => $item eq "periodic" }; |
|
| 787 |
}; |
|
| 788 |
|
|
| 789 |
$form->{PROFIT_DETERMINATIONS} = [];
|
|
| 790 |
foreach my $item ( qw(balance income) ) {
|
|
| 791 |
push @{ $form->{PROFIT_DETERMINATIONS} }, { "name" => $item,
|
|
| 792 |
"selected" => $item eq "income" }; |
|
| 793 |
}; |
|
| 794 |
|
|
| 777 | 795 |
my $default_charset = $::lx_office_conf{system}->{dbcharset};
|
| 778 | 796 |
$default_charset ||= Common::DEFAULT_CHARSET; |
| 779 | 797 |
|
Auch abrufbar als: Unified diff
Umstellung von eur zu 3 Variablen in defaults
accounting_method inventory_system profit_determination
Details siehe doc/umstellung_eur.txt