X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=a99204c334725c64b7114986545b2a7d22d947a5;hb=710ebb28d9a0f0125dd7e7d1f0662d3127ac1328;hp=45333c1cd895b44c2d4e2a6509189ac4919cbeb3;hpb=07948c344b0f699314c1b05b4e9c41b8babc3981;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 45333c1cd..a99204c33 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -55,6 +55,7 @@ sub delete { call_sub("delete_$form->{type}"); }
sub save { call_sub("save_$form->{type}"); }
sub edit { call_sub("edit_$form->{type}"); }
sub continue { call_sub($form->{"nextsub"}); }
+sub save_as_new { call_sub("save_as_new_$form->{type}"); }
sub add_account {
$lxdebug->enter_sub();
@@ -98,8 +99,8 @@ sub account_header {
if ( $form->{action} eq 'edit_account') {
$form->{account_exists} = '1';
- }
-
+ }
+
$form->{title} = $locale->text("$form->{title} Account");
$form->{"$form->{charttype}_checked"} = "checked";
@@ -108,9 +109,9 @@ sub account_header {
$form->{select_tax} = "";
my @tax_report_pos = USTVA->report_variables({
- myconfig => \%myconfig,
- form => $form,
- type => '',
+ myconfig => \%myconfig,
+ form => $form,
+ type => '',
attribute => 'position',
calc => '',
});
@@ -146,27 +147,27 @@ sub account_header {
if ($item->{id} == $taxkey_used->{tax_id}) {
$form->{ACCOUNT_TAXKEYS}[$i]{selecttaxkey} .=
qq||;
@@ -214,7 +215,7 @@ sub account_header {
14 => "Steuern, Versich., Beiträge",
15 => "Kfz-Steuern",
16 => "Kfz-Versicherungen",
- 17 => "Sonst. Fahrtkosten",
+ 17 => "Sonst. Fahrzeugkosten",
18 => "Werbe- und Reisekosten",
19 => "Instandhaltung u. Werkzeuge",
20 => "Fachzeitschriften, Bücher",
@@ -287,18 +288,18 @@ sub account_header {
# this is for our parser only! Do not remove.
# type=submit $locale->text('Add Account')
# type=submit $locale->text('Edit Account')
-
+
$form->{type} = "account";
# preselections category
-
+
$select_category = q|\n|;
%category = (
'A' => $locale->text('Asset'),
'L' => $locale->text('Liability'),
'Q' => $locale->text('Equity'),
- 'I' => $locale->text('Revenue'),
+ 'I' => $locale->text('Revenue'),
'E' => $locale->text('Expense'),
'C' => $locale->text('Costs'),
);
@@ -310,7 +311,7 @@ sub account_header {
}
}
-
+
# preselection chart type
my $select_charttype = q{};
@@ -318,7 +319,7 @@ sub account_header {
'A' => $locale->text('Account'),
'H' => $locale->text('Header'),
);
-
+
foreach $item ( sort({ $a <=> $b } keys %charttype) ) {
if ($item eq $form->{charttype}) {
$select_charttype .= qq|