<% if (scalar @{$options}) { %>
<% my $leftovers = []; <% push @{$option_categories}, { uuid => 'uncategorized', name => 'uncategorized' }; %> <% if ( scalar @{$option_categories} > 1) { %> <% foreach my $oc ( @{$option_categories}) { my @os = grep { $oc->{'uuid'} eq $_->{'option_category'} } @{$options}; if ( scalar @os ) { %> <%= &subs::format_name($oc->{'name'}) %> <% foreach my $os ( @os ) { %> <% my @sos = grep { $_->{'uuid'} eq $os->{'uuid'} } @{$l->{'options'}}; %> {'uuid'}) { %> select="on"<% } %>>

<%= &subs::format_name($os->{'name'}) %>

{'unit'} eq $l->{'app'}) { %>selected<% } %>><%= &subs::format_name($l->{'app'}) %> {'unit'} eq $os->{'name'}) { %>selected<% } %>><%= &subs::format_name($os->{'name'}) %> <% foreach my $meas ( sort keys %{$gb::measures} ) { %> {'unit'}) { %>selected<% } %>><%= &subs::format_name($gb::measures->{$meas}->{'name'} || $meas) %> <% } %>

<% } %> <% } %> <% } %> <% } %> <% } %>