The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%args>
    $chart_tag => 0
</%args>

%   for my $or_tag (
%       $c
%           ->model('TestrunDB')
%           ->resultset('ChartTagRelations')
%           ->search( undef, {
%               prefetch    => 'chart_tag',
%               order_by    => { -asc => 'chart_tag' },
%               group_by    => ['chart_tag.chart_tag'],
%           })
%   ) {
%       if ( defined $chart_tag && $chart_tag == $or_tag->chart_tag_id ) {
            <option value="<% $or_tag->chart_tag_id %>" selected="selected"><% $or_tag->chart_tag->chart_tag %></option>
%       }
%       else {
            <option value="<% $or_tag->chart_tag_id %>"><% $or_tag->chart_tag->chart_tag %></option>
%       }
%   }