+ $self->{accounting_options} = [ { title => $::locale->text("Accrual"), value => "accrual" },
+ { title => $::locale->text("cash"), value => "cash" }, ];
+ $self->{inventory_options} = [ { title => $::locale->text("perpetual"), value => "perpetual" },
+ { title => $::locale->text("periodic"), value => "periodic" }, ];
+ $self->{profit_options} = [ { title => $::locale->text("balance"), value => "balance" },
+ { title => $::locale->text("income"), value => "income" }, ];
+
+ map { $self->{$_} = SL::DB::Default->get->$_ } qw(is_changeable ir_changeable ar_changeable ap_changeable gl_changeable);