<% use Mojo::JSON qw/decode_json/; %> <% my $class_list = ''; %> <% my $packaging = eval { return decode_json $settings->{'packaging'} } || {}; %> <% if ($source eq 'transaction') { %> <% $class_list = 'purchase_input'; %> <% } %> <% if (scalar @{$models}) { %> <% if ( scalar keys %{$packaging} > 0 ) { %> Single <% foreach my $p ( keys %{$packaging} ) { %> <%= $pc %>="<%= $packaging->{$p}->{$pc} %>" <% } %> ><%= &subs::format_name($packaging->{$p}->{'name'}) %> <% } %> <% } %> Main <% foreach my $m (@{$models}) { %> {'model'}->{'uuid'} eq $m->{'uuid'} || $m->{'uuid'} eq $l->{'data'}->{'model'}->{'uuid'} || $l->{'data'}->{'model'}->{'def'} eq 'on' ) { %>selected<% } %> value="<%= $m->{'uuid'} %>"><%= &subs::format_name($m->{'name'}) %> <% } %> <%= &subs::format_name($l->{'app'}) %> <% if ($settings->{'source_app'}) { %> <%= &subs::format_name($settings->{'source_app'}) %> <% } %> <% foreach my $mo ( @{$models} ) { %> <%= &subs::format_name($mo->{'name'}) %> <% } %> <% foreach my $meas ( sort keys %{$gb::measures} ) { %> {'model'}->{'unit'}) { %>selected<% } %>><%= &subs::format_name($gb::measures->{$meas}->{'name'} || $meas) %> <% } %> <% } %>