<& httable, title => 'Derivations by Object Type', data => $derived_goo2, category => $EFF_DERIVEDOBJECTS, details => 'effldd' &>
<& htable_d, title => 'Derivations by Night', data => $derived_goo, category => $EFF_DERIVEDOBJECTS, details => 'efflddf' &> <& htable_a, title => 'Attributions by Night', data => $attributions_goo, category => $EFF_ATTRIBUTIONS, details => 'effldaf' &> <& htable_a, title => 'Precoveries by Night', data => $precoveries_goo, category => $EFF_PRECOVERIES, details => 'effldpf' &> <& htable_i, title => 'Identifications by Night', data => $identifications_goo, category => $EFF_IDENTIFICATIONS, details => 'effldi' &> <& /htmlfooter &> <%args> $ocnum <%init> use Astro::Time; use PS::MOPS::Lib; use PS::MOPS::DC::Efficiency; my $inst = $m->notes('INST'); my $derived_goo = modce_retrieve($inst, category => $EFF_DERIVEDOBJECTS, ocnum => $ocnum); my $attributions_goo = modce_retrieve($inst, category => $EFF_ATTRIBUTIONS, ocnum => $ocnum); my $precoveries_goo = modce_retrieve($inst, category => $EFF_PRECOVERIES, ocnum => $ocnum); my $identifications_goo = modce_retrieve($inst, category => $EFF_IDENTIFICATIONS, ocnum => $ocnum); my $removals_goo = modce_retrieve($inst, category => $EFF_REMOVALS, ocnum => $ocnum); my $derived_goo2 = modce_retrieve($inst, category => $EFF_DERIVEDOBJECTS, byObjectType => 1, ocnum => $ocnum); my $tracklets_goo = modce_retrieve($inst, category => $EFF_TRACKLETS, ocnum => $ocnum); # Convert OC number to calendar dates my @cal = mjd2cal(PS::MOPS::Lib::mopslib_ocnum2mjd($ocnum)); my $start_str = sprintf("%4d-%02d-%02d", @cal[2, 1, 0]), @cal = mjd2cal(PS::MOPS::Lib::mopslib_ocnum2mjd($ocnum + 1) - 1); my $end_str = sprintf("%4d-%02d-%02d", @cal[2, 1, 0]),