<html>
<head>
</head>
<body>
<span style="font-family: monospace">
<table>
<tr>
<th>RA (deg)</th>
<th>Dec (deg)</th>
<th>UT Date</th>
<th>Tracklet ID</th>
<th>Exp Name</th>
</tr>
% foreach my $det (@{$trk->detections}) {
% my $fpa_id = modcf_retrieve($inst, fieldId => $det->fieldId)->fpaId;
% my @foo = mjd2cal($det->epoch);
<tr>
<td><% sprintf "%.6f", $det->ra %></td>
<td><% sprintf "%+.6f", $det->dec %></td>
<td><% sprintf "%4d%02d%09.6f", @foo[2, 1], $foo[0] + $foo[3] %></td>
<td align=center><% $trk_id %></td>
<td align=center><% $fpa_id %></td>
</tr>
% }
</table>
</span>
</body>
</html>

<%args>
$trk_id
</%args>

<%init>
use Astro::Time;
use PS::MOPS::DC::Field;
use PS::MOPS::DC::Tracklet;

my $inst = $m->notes('INST');
my $trk = modct_retrieve($inst, trackletId => $trk_id);
</%init>
