<p>
<b><% $title %></b>
<table border=1 cellspacing=0 cellpadding=2>
<tr>
<th class="darkheader"> Field ID </th>
<th class="darkheader"> Night Number </th>
<th class="darkheader"> Available </th>
<th class="darkheader" colspan=2> Linked (%) </th>
<th class="darkheader" colspan=2> Pass IOD (%) </th>
<th class="darkheader" colspan=2> Pass DIFF (%) </th>
<th class="darkheader" colspan=2> Mixed (%) </th>
<th class="darkheader" colspan=2> Bad (%) </th>
<th class="darkheader" colspan=1> Nonsynth </th>
<th class="darkheader"> Details </th>
</tr>
% foreach my $item (@{$data}) {
<tr>
<td align="left">  <a href="plot_tracklets.html?field_id=<% $item->{fieldId} %>"><% $item->{fieldId}%> </a></td>
<td align="left">  <% $item->{nn} %> </td>
<td class="htable1" align="right"> <% $item->{avail} %> </td>

% { my $color_str = "#FFFFFF";
% $color_str = "#FFFF99" if $item->{avail} - $item->{unlinked} < $item->{avail};
% $color_str = "#FFFF00" if $item->{avail} - $item->{unlinked} < 0.75*$item->{avail};
% $color_str = "#FF6600" if $item->{avail} - $item->{unlinked} < 0.5*$item->{avail};
% $color_str = "#FF0000" if $item->{avail} - $item->{unlinked} < 0.25*$item->{avail};
<td class="htable2" align="right" bgcolor="<% $color_str %>"> <% $item->{avail} - $item->{unlinked} %> </td>
<td class="htable2" align="right" bgcolor="<% $color_str %>"> <b><% sprintf "%.1f", 100 * (1 - $item->{unlinked} / ($item->{avail} || 1)) %></b> </td>
% }

% { my $color_str = "#FFFFFF";
% $color_str = "#FFFF99" if $item->{avail} - $item->{unlinked} - $item->{failiod} < $item->{avail};
% $color_str = "#FFFF00" if $item->{avail} - $item->{unlinked} - $item->{failiod} < 0.75*$item->{avail};
% $color_str = "#FF6600" if $item->{avail} - $item->{unlinked} - $item->{failiod} < 0.5*$item->{avail};
% $color_str = "#FF0000" if $item->{avail} - $item->{unlinked} - $item->{failiod} < 0.25*$item->{avail};
<td class="htable1" align="right" bgcolor="<% $color_str %>"> <% $item->{avail} - $item->{unlinked} - $item->{failiod} %> </td>
<td class="htable1" align="right" bgcolor="<% $color_str %>"> <b><% sprintf "%.1f", 100 * ($item->{avail} - $item->{unlinked} - $item->{failiod}) / ($item->{avail} || 1) %></b> </td>
% }

% { my $color_str = "#FFFFFF";
% $color_str = "#FFFF99" if $item->{clean} < $item->{avail};
% $color_str = "#FFFF00" if $item->{clean} < 0.75*$item->{avail};
% $color_str = "#FF6600" if $item->{clean} < 0.5*$item->{avail};
% $color_str = "#FF0000" if $item->{clean} < 0.25*$item->{avail};
<td class="htable2" align="right" bgcolor="<% $color_str %>"> <% $item->{clean} %> </td>
<td class="htable2" align="right" bgcolor="<% $color_str %>"> <b> <& /lib/makepct, num => $item->{clean}, denom => $item->{avail} &> </b> </td>
% }

<td class="htable1" align="right"> <% $item->{mixed} %> </td>
<td class="htable1" align="right"> <b> <& /lib/makepct, num => $item->{mixed}, denom => $item->{avail} &> </b> </td>

<td class="htable2" align="right"> <% $item->{bad} %> </td>
<td class="htable2" align="right"> <b> <& /lib/makepct, num => $item->{bad}, denom => $item->{avail} &> </b> </td>

<td class="htable1" align="right"> <% $item->{nonsynthetic} %> </td>

<td align="right"> <a href="<% $details %>.html?category=<% $item->{category} %>&fieldId=<% $item->{fieldId} %>">Details</a> </td>

</tr>
% }
</table>

<%args>
$title
$data
$category
$details
$epoch_mjd => undef
$byField => 0
</%args>

<%init>
use Data::Dumper;


sub _sum {
    my @data = @_;
    my $tot = 0;
    $tot += $_ foreach @_;
    return $tot;
}

# Create sum row.  Cheesy.
push @{$data}, {
    fieldId => 'Total',
    nn => 'N/A',
    avail => _sum(map { $_->{avail} } @{$data}),
    clean => _sum(map { $_->{clean} } @{$data}),
    unfound => _sum(map { $_->{unfound} } @{$data}),
    unlinked => _sum(map { $_->{unlinked} } @{$data}),
    failiod => _sum(map { $_->{failiod} } @{$data}),
    mixed => _sum(map { $_->{mixed} } @{$data}),
    bad => _sum(map { $_->{bad} } @{$data}),
    nonsynthetic => _sum(map { $_->{nonsynthetic} } @{$data}),
};
</%init>
