<& /htmlheader &>
<& modelheader &>
Linking and Orbit Determination Efficiency
MJD <% $epoch_mjd %>
Derivations
<& httable, title => 'By Object Type', data => $derived_goo2, category => $EFF_DERIVEDOBJECTS, details => 'effldd' &>
<& hftable, title => 'By Field', data => $derived_goo, category => $EFF_DERIVEDOBJECTS, details => 'effldd' &>
<& /htmlfooter &>
<%args>
$epoch_mjd => undef
$nn => undef
<%init>
use PS::MOPS::Lib qw(:all);
use PS::MOPS::DC::Efficiency;
my $inst = $m->notes('INST');
my $config = $inst->getConfig();
my $gmt_offset_hours = $config->{site}->{gmt_offset_hours};
if ($nn) {
$epoch_mjd = mopslib_nn2mjd($nn, $gmt_offset_hours);
}
my $derived_goo = modce_retrieve($inst, category => $EFF_DERIVEDOBJECTS, byField => 1, epoch_mjd => $epoch_mjd);
my $derived_goo2 = modce_retrieve($inst, category => $EFF_DERIVEDOBJECTS, byObjectType => 1, epoch_mjd => $epoch_mjd);