- $form->{ACCOUNTING_METHODS} = [];
- foreach my $item ( qw(accrual cash) ) {
- push @{ $form->{ACCOUNTING_METHODS} }, { "name" => $item,
- "selected" => $item eq "cash" };
- };
-
- $form->{INVENTORY_SYSTEMS} = [];
- foreach my $item ( qw(perpetual periodic) ) {
- push @{ $form->{INVENTORY_SYSTEMS} }, { "name" => $item,
- "selected" => $item eq "periodic" };
- };
-
- $form->{PROFIT_DETERMINATIONS} = [];
- foreach my $item ( qw(balance income) ) {
- push @{ $form->{PROFIT_DETERMINATIONS} }, { "name" => $item,
- "selected" => $item eq "income" };
- };
+ $form->{ACCOUNTING_METHODS} = [ map { { name => $_, selected => $_ eq 'cash' } } qw(accrual cash) ];
+ $form->{INVENTORY_SYSTEMS} = [ map { { name => $_, selected => $_ eq 'periodic' } } qw(perpetual periodic) ];
+ $form->{PROFIT_DETERMINATIONS} = [ map { { name => $_, selected => $_ eq 'income' } } qw(balance income) ];