<% my @article = grep { $_->{'uuid'} eq $uuid } @{$articles}; %> <% foreach my $a ( @{$articles } ) { %> {'uuid'} eq $uuid ) { %>selected <% } %> value="<%= $a->{'uuid'} %>"><%= $a->{'title'} %> <% } %>
<% foreach my $b ( qw/h1 h2 h3 h4 a p audio video img canvas/ ) { %> <%= $b %> <% } %>
<% foreach my $color ( qw/text background/ ) { %> <% } %> {'category'} eq "promo") { %>selected<% } %> value="promo">Promo <% foreach my $cat ( @{$magazine_categories} ) { %> {'category'} eq $cat->{'app'}) { %>selected<% } %> value="<%= lc $cat->{'app'} %>"><%= &subs::format_name($cat->{'app'}) %> <% } %> <% foreach my $status ( qw/draft review publish recanted/) { %> {'status'} eq $status) { %>selected<% } %> value="<%= $status %>"><%= &subs::format_name($status) %> <% } %>
t:
w: