Revision bd1ece25
Von Moritz Bunkus vor etwa 13 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 1552 | 1552 |
# default language |
| 1553 | 1553 |
my $all_languages = SL::DB::Manager::Language->get_all; |
| 1554 | 1554 |
|
| 1555 |
# EÜR = cash, Bilanzierung = accrual
|
|
| 1555 |
# EÜR = cash, Bilanzierung = accrual |
|
| 1556 | 1556 |
|
| 1557 | 1557 |
foreach my $key (keys %{ $form->{IC} }) {
|
| 1558 | 1558 |
foreach my $accno (sort keys %{ $form->{IC}->{$key} }) {
|
| ... | ... | |
| 1660 | 1660 |
{ 'name' => $locale->text('Queue'), 'value' => 'queue', 'selected' => $selected{queue}, },
|
| 1661 | 1661 |
]; |
| 1662 | 1662 |
|
| 1663 |
$form->{PRINTERS} = [];
|
|
| 1664 |
foreach my $printer (SL::Printer->all_printers(%::myconfig)) {
|
|
| 1665 |
push @{ $form->{PRINTERS} }, {
|
|
| 1666 |
'name' => $printer->{printer_description},
|
|
| 1667 |
'value' => $printer->{id},
|
|
| 1668 |
'selected' => $printer->{id} == $myconfig{default_printer_id},
|
|
| 1669 |
}; |
|
| 1670 |
} |
|
| 1663 |
$form->{PRINTERS} = [ SL::Printer->all_printers(%::myconfig) ];
|
|
| 1671 | 1664 |
|
| 1672 | 1665 |
my %countrycodes = User->country_codes; |
| 1673 | 1666 |
|
Auch abrufbar als: Unified diff
Ermöglichen, keinen Drucker als Standarddrucker auszuwählen