<& /htmlheader &>

<& modelheader &>
<h2>Linking Efficiency, MJD <% $epoch_mjd %></h2>

<h3><% scalar @{$goo} %> Identifications</h3>
<table border=1 cellspacing=0 cellpadding=2>
<tr>
<th class="darkheader"> Event ID </th>
<th class="darkheader"> Master Object Name </th>
<th class="darkheader"> Child Object Name </th>
<th class="darkheader"> Classification </th>
<th class="darkheader"> Orbit ID </th>
<th class="darkheader"> Timestamp </th>
</tr>
% foreach my $h (@{$goo}) {
% my ($master_do) = modcdo_retrieve($inst, derivedobjectId => $h->derivedobjectId);
% my ($child_do) = modcdo_retrieve($inst, derivedobjectId => $h->childobjectId);
<tr>
<td align="center"> <% $h->eventId || 'N/A' %> </td>
<td align="center"> <a href="dohist.html?derivedobjectId=<% $master_do->derivedobjectId %>"><% $master_do->objectName %> </a></td>
<td align="center"> <a href="dohist.html?derivedobjectId=<% $child_do->derivedobjectId %>"><% $child_do->objectName %> </a></td>
<td align="center"> <% $MOPS_EFF_DESCS{$h->classification} %> </td>
<td align="center"> <a href="orbit.html?orbitId=<% $h->orbitId %>&objectName=<% $child_do->objectName %>"><% $h->orbitId %></a></td>
<td align="center"> <% $h->eventTime %> </td>
</tr>
% }
</table>

<& /htmlfooter &>

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

<%init>
my $inst = $m->notes('INST');
use PS::MOPS::Constants qw(:all);
use PS::MOPS::DC::DerivedObject;
use PS::MOPS::DC::History::Identification;
my $goo = modchi_retrieve($inst, epoch_mjd => $epoch_mjd);
</%init>
