X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=b60c1fa53b1f4f4ca27c7c29ce0dff1989bbc518;hb=024df846ffcf9d315f068a50f3fac8a992791902;hp=48b875a577ddda58c4813fbc0134437967da9f9f;hpb=58fcb69f65a255c0db6741ca7aed0a695cae68c8;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 48b875a57..b60c1fa53 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -36,6 +36,8 @@ use SL::CA;
use SL::Form;
use SL::User;
+use Data::Dumper;
+
1;
# end of main
@@ -110,16 +112,83 @@ sub account_header {
|;
+ #print(STDERR Dumper($form->{NEWACCOUNT}));
+ if (@{ $form->{NEWACCOUNT} }) {
+ if (!$form->{new_chart_valid}) {
+ $form->{selectnewaccount} = "";
+ }
+ foreach $item (@{ $form->{NEWACCOUNT} }) {
+ if ($item->{id} == $form->{new_chart_id}) {
+ $form->{selectnewaccount} .=
+ "";
+ } elsif (!$form->{new_chart_valid}) {
+ $form->{selectnewaccount} .=
+ "";
+ }
+
+ }
+ }
+
+ $newaccount = qq|
+
+
+
+ |
+
|;
+
$form->{selectustva} = "