<& /htmlheader &> <& modelheader &>

Linking and Orbit Determination Efficiency
Field <% $fieldId %>
MJD <% $f->epoch %>

Attributions

% foreach $h (sort { % ($a->classification cmp $b->classification) || % ($a->orbitCode cmp $b->orbitCode) % } @{$goo}) { % my $name; % if ($h->derivedobjectId) { % my $do = modcdo_retrieve($inst, derivedobjectId => $h->derivedobjectId); % my $orb = ($h->orbitId ? modco_retrieve($inst, orbitId => $h->orbitId) : undef); % $name = modcs_ssmId2objectName($inst, $do->ssmId); # $h->ssmId unreliable still % if ($do->ssmId) { % } else { % } % } % } # foreach
Event ID Timestamp Derived
Object Name 		SSM
Object Name 		Class Orbit Resid
(arcsec) 		Ephemeris Dist
(arcsec) 		Details
<% $h->eventId %> <% $h->eventTime %> <% $do->objectName %> <% $name %> N/A <% $MOPS_EFF_DESCS{$h->classification} %> <% $h->orbitCode %> <% $orb ? (sprintf "%.3f", $orb->residual) : 'N/A' %> <% $h->ephemerisDistance %> History
<& /htmlfooter &> <%args> $fieldId <%init> my $h; my $inst = $m->notes('INST'); use PS::MOPS::Constants qw(:all); use PS::MOPS::DC::DerivedObject; use PS::MOPS::DC::History::Attribution; use PS::MOPS::DC::SSM; use PS::MOPS::DC::Orbit; use PS::MOPS::DC::Field; my $goo = modcha_retrieve($inst, fieldId => $fieldId); my $f = modcf_retrieve($inst, fieldId => $fieldId);