X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=0ce8c2ee6d371106e68626fec8b151b91b757a06;hb=d25bd6ec1709f3c8ef07e1dab1f69469893ab6dc;hp=e0ae42f7a8bf612673b1a9827202086ae20893d1;hpb=72539cb39a3d19f930a8e0e41e46bf41afe9a8f1;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e0ae42f7a..0ce8c2ee6 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -36,8 +36,14 @@ use SL::CA;
use SL::Form;
use SL::User;
+use Data::Dumper;
+
1;
+
+
+require "$form->{path}/common.pl";
+
# end of main
sub add { &{"add_$form->{type}"} }
@@ -90,14 +96,16 @@ sub account_header {
$form->{description} =~ s/\"/"/g;
if (@{ $form->{TAXKEY} }) {
- $form->{selecttaxkey} = "";
+ }
+ foreach $item (@{ $form->{NEWACCOUNT} }) {
+ if ($item->{id} == $form->{new_chart_id}) {
+ $form->{selectnewaccount} .=
+ "";
+ } elsif (!$form->{new_chart_valid}) {
+ $form->{selectnewaccount} .=
+ "";
+ }
+
+ }
+ }
+
+ $newaccount = qq|
+
+
+
+ |
|;
$form->{selectustva} = "