<& /htmlheader &>

<& modelheader &>
<h2>Unfound Derived Object History<br>
Object <% $ssm->objectName %></h2>
<a href="/model/<% $model %>/dodets.html?objectName=E<% $event->eventId %>">Detections</a>
<p>

% if ($event->ssmId) {
<table border=0 cellspacing=0 cellpadding=2>
<tr>
<td align="left" valign="top">
<b>SSM Orbit</b><br>
</td>
<td>
<b>Orbit</b>
<& ssmtable, ssmId => $event->ssmId &>
</td>
</tr>
</table>
% }

% if ($event->orbitId) {
<table border=0 cellspacing=0 cellpadding=2>
<tr>
<td align="left" valign="top">
<b>Initial Orbit<br>Determination</b><br>
</td>
<td>
<b>Orbit</b>
<& otable, orbitId => $event->orbitId, showdets => 0 &>
</td>
</tr>
</table>
% }

<table border=0 cellspacing=0 cellpadding=2>
<tr>
<td align="left" valign="top">
<b>Tracklets</b><br>
Event ID <% $event->eventId %><br>
<% $event->eventTime %>
</td>
<td>
% my $trk;
% foreach my $trk_id (@{$event->trackletIds}) {
% $trk = modct_retrieve($inst, trackletId => $trk_id);
<& ttable, trk => $trk &>
% }
</td>
</tr>
</table>


<& /htmlfooter &>

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

<%init>
# Display a table of tracklets/detection history data for specified field ID.
use PS::MOPS::DC::History::Derivation;
use PS::MOPS::DC::Tracklet;
use PS::MOPS::DC::SSM;
use PS::MOPS::DC::Orbit;
my $inst = $m->notes('INST');
my $model = $m->notes('MODEL');
my $event = modchd_retrieve($inst, eventId => $eventId);
my $ssm = modcs_retrieve($inst, ssmId => $event->ssmId);
</%init>



