<% my $projects = &subs::db_select('settings', undef, { setting => 't_project', device => &subs::device_setter(), value => $a }, { order_by => ($appts->{$a}->{'setting'}->{'m_project_sort'} || 'app') })->hashes; %> <% foreach my $proj ( @{$projects} ) { %> <% my $p_appts = &subs::db_select('appointments', undef, { app => $proj->{'app'} })->hashes; %> <% } %>

App	Count	<% foreach my $s ( qw/app ost server_time timestamp/ ) { %> {$a}->{'setting'}->{'m_project_sort'}) { %> selected <% } %>><%= &subs::format_name($s) %> <% } %>
<%= &subs::format_name($proj->{'app'}) %>	<%= scalar @{$p_appts} %>	<%= $appts->{$a}->{'formatted_name'} %> <% foreach my $ap (@{$appts->{'__projects'}}) { %> {'app'}) { %> selected <% } %>> <%= $ap->{'formatted_name'} %> <% } %>

Add to Project