X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=7e760c27e9012d2f9f31dd964a6dfbe20656b288;hb=6768ddad54d2a675939e1167536f4943628de2bb;hp=62c645a6f260961cd3a0398cba4f8604800f098c;hpb=09479f022ab9e0815ceee55923ae46df51afbd42;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index 62c645a6f..7e760c27e 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -45,6 +45,8 @@ use SL::TODO; use SL::DB::Printer; use SL::DB::Tax; use SL::DB::Language; +use SL::DB::Default; +use SL::DBUtils qw(selectall_array_query); use CGI; require "bin/mozilla/common.pl"; @@ -87,10 +89,17 @@ sub edit_account { my $form = $main::form; my %myconfig = %main::myconfig; + my $defaults = SL::DB::Default->get; $main::auth->assert('config'); $form->{title} = "Edit"; + $form->{feature_balance} = $defaults->feature_balance; + $form->{feature_datev} = $defaults->feature_datev; + $form->{feature_erfolgsrechnung} = $defaults->feature_erfolgsrechnung; + $form->{feature_eurechnung} = $defaults->feature_eurechnung; + $form->{feature_ustva} = $defaults->feature_ustva; + AM->get_account(\%myconfig, \%$form); foreach my $item (split(/:/, $form->{link})) {