<& /htmlheader &> <& modelheader &>

Linking Efficiency, MJD <% $epoch_mjd %>

<% scalar @{$goo} %> Identifications

% foreach my $h (@{$goo}) { % my ($master_do) = modcdo_retrieve($inst, derivedobjectId => $h->derivedobjectId); % my ($child_do) = modcdo_retrieve($inst, derivedobjectId => $h->childobjectId); % }

Event ID	Master Object Name	Child Object Name	Classification	Orbit ID	Timestamp
<% $h->eventId \|\| 'N/A' %>	<% $master_do->objectName %>	<% $child_do->objectName %>	<% $MOPS_EFF_DESCS{$h->classification} %>	<% $h->orbitId %>	<% $h->eventTime %>

<& /htmlfooter &> <%args> $epoch_mjd => undef <%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);