<& /htmlheader &>
<& modelheader &>
<h2>Known Object <% $known_name %></h2>
<p>

<table width="75%" border=0 cellspacing=0 cellpadding=2>
<tr><td>
% foreach my $trk (sort {$a->extEpoch <=> $b->extEpoch} @tracklets) {
<& ttable, trk => $trk &>
% }
</td></tr>
</table>

<& /htmlfooter &>

<%args>
$known_id => undef
</%args>

<%init>
use PS::MOPS::DC::Known;
use PS::MOPS::DC::Tracklet;

my $inst = $m->notes('INST');
my $model = $m->notes('MODEL');
my $dbh = $inst->dbh();

my $known_name;
my $href = modck_lookup($inst, knownId => $known_id);
$known_name = $href->{known_name};

# Look up tracklets with known name.
my $sth = $dbh->prepare("select tracklet_id from tracklets where known_id=?")
    or die $dbh->errstr;
$sth->execute($known_id) or die $sth->errstr;

my @tracklets;
while ($href = $sth->fetchrow_hashref()) {
    push @tracklets, modct_retrieve($inst, trackletId => $href->{tracklet_id});
}
</%init>
