<a name="#<% $event->eventId %>"></a>

<table width="<% ($do && $do->orbitId) ? "95%" : "88%" %>">
<tr>
<td width>

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


% if ($do) {
<table border=0 cellspacing=0 cellpadding=2 width="100%">
<tr>
<td align="left" valign="top" width="20%">
<b>Current Orbit</b><br>
Updated <% $do->updated %>
</td>
<td width="80%">
<b>Orbit</b>
<& otable, orbitId => $do->orbitId &>
</td>
</tr>
</table>

<table border=0 cellspacing=0 cellpadding=2 width="100%">
<tr>
<td align="left" valign="top" width="20%">
<b>Derivation<br>
<% $do ? ($do->objectName . " (" . $do->derivedobjectId . ")") : 'N/A' %></b><br>
Event ID <% $event->eventId %><br>
<% $event->eventTime %><br>
<& eventClassification, event => $event &><br>
D3=<% $event && defined($event->d3) ? sprintf "%.3f", $event->d3 : 'N/A' %><br>
D4=<% $event && defined($event->d4) ? sprintf "%.3f", $event->d4  : 'N/A'%><br>
</td>
<td width="80%">
% my $trk;
% my @tracklets;
% push @tracklets, modct_retrieve($inst, trackletId => $_) foreach @{$event->trackletIds};
<b>Tracklets (<% join('=', @{$event->trackletIds}) %>) </b>
% foreach my $trk (sort {$a->extEpoch <=> $b->extEpoch} @tracklets) {
<& ttable, trk => $trk, orbitId => $event->orbitId &>
% }
<p height=10>
<b>Orbit</b>
<& otable, orbitId => $event->orbitId &>
</td>
</tr>
</table>

% } # if
% else {

<table border=0 cellspacing=0 cellpadding=2 width="100%">
<tr>
<td align="left" valign="top" width="20%">
<b>Derivation<br>
Event ID <% $event->eventId %><br>
<% $event->eventTime %><br>
<& eventClassification, event => $event &><br>
</td>
<td width="80%">
<b>Tracklets</b>
% my $trk;
% my @tracklets;
% push @tracklets, modct_retrieve($inst, trackletId => $_) foreach @{$event->trackletIds};
% foreach my $trk (sort {$a->extEpoch <=> $b->extEpoch} @tracklets) {
<& ttable, trk => $trk &>
% }
<p height=10>
</td>
</tr>
</table>

% } # else


</td>
</tr>
</table>

<%args>
$event
</%args>

<%init>
my $inst = $m->notes('INST');
use PS::MOPS::DC::Tracklet;
use PS::MOPS::DC::SSM;
use PS::MOPS::DC::DerivedObject;
my $do;

if ($event->derivedobjectId) {
  $do = modcdo_retrieve($inst, derivedobjectId => $event->derivedobjectId);
}
</%init>
