X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=d6ccfe2dfac35cda3e8dd42393d1444a0c1c2c77;hb=bfaef835c20ba69d5ea4242e67a0dcb4fcbd4f50;hp=e39d1193a1b38312ac80fee5fbb25728db6d5ddc;hpb=3de3c10083058df01ea675e9db04b1a67f9713d0;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e39d1193a..d6ccfe2df 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -364,7 +364,9 @@ sub account_header {
|
. $locale->text('Revenue') . qq|\n
|
- . $locale->text('Expense') . qq|
+ . $locale->text('Expense') . qq|
+ |
+ . $locale->text('Costs') . qq|
|
|
@@ -1778,8 +1780,10 @@ sub add_buchungsgruppe {
"$form->{script}?action=add_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}"
unless $form->{callback};
AM->get_buchungsgruppe(\%myconfig, \%$form);
- if ($eur) {
- $form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
+ $form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
+ for (my $i = 0; 4 > $i; $i++) {
+ map({ $form->{"${_}_accno_id_$i"} = $form->{"std_${_}_accno_id"}; }
+ qw(income expense));
}
&buchungsgruppe_header;
@@ -2989,8 +2993,19 @@ sub config {
$form->header;
- if ($myconfig{menustyle} eq "old") { $oldS = "checked"; }
- else { $newS = "checked"; }
+ if ($myconfig{menustyle} eq "old") {
+ $menustyle_old = "checked";
+ } elsif ($myconfig{menustyle} eq "neu") {
+ $menustyle_neu = "checked";
+ } elsif ($myconfig{menustyle} eq "v3") {
+ $menustyle_v3 = "checked";
+ }
+
+ my ($show_form_details, $hide_form_details);
+ $myconfig{"show_form_details"} = 1
+ unless (defined($myconfig{"show_form_details"}));
+ $show_form_details = "checked" if ($myconfig{"show_form_details"});
+ $hide_form_details = "checked" unless ($myconfig{"show_form_details"});
print qq|
@@ -3065,9 +3080,20 @@ sub config {
|
| . $locale->text('Setup Menu') . qq| |
- New
- Old |
-
+ | .
+ $locale->text("Top (CSS)") . qq|
+ | .
+ $locale->text("Top (Javascript)") . qq|
+ | .
+ $locale->text("Old (on the side)") . qq| |
+
+
+ | . $locale->text('Form details (second row)') . qq| |
+
+
+
+ |
+
| . $locale->text("Print options") . qq| |
@@ -3091,16 +3117,8 @@ sub config {
|
-
-
- |
|
|