X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=7084aa388b7c52c0f181b9546efc3ec768f8d0d3;hb=bdaa8c2f669c9ddcc2f0c8989fed52559d59be43;hp=20f1ad8d37cfa67c1dce7cb70425b3ee68f6e4a1;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index 20f1ad8d3..7084aa388 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -36,8 +36,12 @@ 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 +94,13 @@ 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| + + + + + + + + + +
| . $locale->text('Folgekonto') . qq|| . $locale->text('Gültig ab') . qq|
+ |; $form->{selectustva} = "