<% if ( ref $appts->{$a}->{'list'} ) { %> <% foreach my $n (@{$appts->{$a}->{'list'}}) { %> <% my @icon = grep { $_->{'name' } eq $n->{'type'} } @{$pseudonyms}; my $icon = $icon[0]->{'icon'} ? '' : ''; %> <%== $icon %> <% } %> <% } %> <% my @icon = grep { $_->{'name' } eq $appts->{$a}->{'setting'}->{'status'} } @{$pseudonyms}; my $icon = $icon[0]->{'icon'} ? '' : ''; %> <%== $icon %> <%= $appts->{$a}->{'setting'}->{'status'} %> <% foreach my $br ( sort keys %{$appts->{$a}->{'budget'}} ) { %> <% if ($appts->{$appointments->[0]}->{'budget'}->{$br}) { %> <%= &subs::format_name(substr($br, 0, 1)) %> <% } %> <% } %>