<& /htmlheader &> <& modelheader &>

Linking and Orbit Determination Efficiency
Field <% $fieldId %>
MJD <% $f->epoch %>
<% mopslib_mjd2localtimestr($f->epoch, $config->{site}->{gmt_offset_hours}) %>

Derivations

% 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 = modco_retrieve($inst, orbitId => $h->orbitId); % $name = modcs_ssmId2objectName($inst, $h->ssmId); # $h->ssmId unreliable still % if ($h->ssmId) { % } else { % } % } else { % $name = modcs_ssmId2objectName($inst, $h->ssmId); % if ($h->orbitId) { % my $orb = modco_retrieve($inst, orbitId => $h->orbitId); % } else { % } % } % } # foreach
Event ID Timestamp Derived
Object Name 		SSM
Object Name 		Current
Classification 		Orbit Resid
(arcsec) 		Details
<% $h->eventId %> <% $h->eventTime %> <% $do->objectName %> <% $name %> N/A <% $MOPS_EFF_DESCS{$h->classification} %> OK <% sprintf "%.3f", $orb->residual %> History <% $h->eventId %> <% $h->eventTime %> - <% $name %> <% $MOPS_EFF_DESCS{$h->classification} %> Fail DIFF <% sprintf "%.3f", $orb->residual %> <% $h->orbitCode eq 'I' ? 'Fail IOD' : 'Unlinked' %> N/A Details
<& /htmlfooter &> <%args> $fieldId <%init> my $h; my $inst = $m->notes('INST'); my $config = $inst->getConfig(); use PS::MOPS::Constants qw(:all); use PS::MOPS::Lib qw(:all); use PS::MOPS::DC::DerivedObject; use PS::MOPS::DC::History::Derivation; use PS::MOPS::DC::SSM; use PS::MOPS::DC::Orbit; use PS::MOPS::DC::Field; my $goo = modchd_retrieve($inst, fieldId => $fieldId); my $f = modcf_retrieve($inst, fieldId => $fieldId);