Revision e90048c8
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 43 | 43 |
use SL::Iconv; |
| 44 | 44 |
use SL::TODO; |
| 45 | 45 |
use SL::DB::Printer; |
| 46 |
use SL::DB::Tax; |
|
| 47 |
use SL::DB::Language; |
|
| 46 | 48 |
use CGI; |
| 47 | 49 |
|
| 48 | 50 |
require "bin/mozilla/common.pl"; |
| ... | ... | |
| 1415 | 1417 |
|
| 1416 | 1418 |
my $parameters_ref = {
|
| 1417 | 1419 |
# ChartTypeIsAccount => $ChartTypeIsAccount, |
| 1420 |
LANGUAGES => SL::DB::Manager::Language->get_all_sorted, |
|
| 1418 | 1421 |
}; |
| 1419 | 1422 |
|
| 1420 | 1423 |
# Ausgabe des Templates |
| ... | ... | |
| 1450 | 1453 |
$form->header(); |
| 1451 | 1454 |
|
| 1452 | 1455 |
my $parameters_ref = {
|
| 1456 |
LANGUAGES => SL::DB::Manager::Language->get_all_sorted, |
|
| 1457 |
TAX => SL::DB::Manager::Tax->find_by(id => $form->{id}),
|
|
| 1453 | 1458 |
}; |
| 1454 | 1459 |
|
| 1455 | 1460 |
# Ausgabe des Templates |
| ... | ... | |
| 1528 | 1533 |
$form->error($locale->text('Tax Percent is a number between 0 and 100'));
|
| 1529 | 1534 |
} |
| 1530 | 1535 |
|
| 1536 |
my @translation_keys = grep { $_ =~ '^translation_\d+' } keys %$form;
|
|
| 1537 |
$form->{translations} = { map { $_ =~ '^translation_(\d+)'; $1 => $form->{$_} } @translation_keys };
|
|
| 1538 |
|
|
| 1531 | 1539 |
AM->save_tax(\%myconfig, \%$form); |
| 1532 | 1540 |
$form->redirect($locale->text('Tax saved!'));
|
| 1533 | 1541 |
|
Auch abrufbar als: Unified diff
Steuernamen übersetztbar gemacht.