<& /htmlheader &>
<& modelheader &>
To: mpc@cfa.harvard.edu
Cc: <% $CC | h %>
Subject: <% "$SUBJ $id_str" %>
<% $SUBJ %> <% $id_str %>
COD F51
CON <% $CON %>
OBS N. Primak, A. Schultz, S. Watters, J. Thiel, T. Goggia
MEA Pan-STARRS 1 Science Consortium
TEL 1.8-m Ritchey-Chretien + CCD
NET 2MASS
COM <% $COM %>, internal <% $int_str %>
ACK <% $id_str %>
AC2 psmops@gmail.com
% foreach my $det (@{$dets_ref}) {
% print PS::MOPS::MPC::det2mpc($det, $id_str), "\n";
% }
<% $trk->trackletId %>
MPCheck
NEO Digest (MOPS)
NEO Digest (MPC)
OORB NEO
MPC Dets
|
<% $TRACKLET_STATUS_DESCS{$trk->status} %> |
<% $MOPS_EFF_DESCS{$trk->classification} %> |
<& /mpc_link, desig => $known_str &> |
<% sprintf "%.3f", $trk->vTot %> |
<% sprintf "%.1f", $trk->posAng %> |
| <& detracklet_table, dets => $dets_ref, resids => 0 &> |
<& /htmlfooter &>
<%args>
$id
$CON
$COM
$DESIG
$new => 0
$followup => 0
<%init>
use PS::MOPS::DC::Orbit;
use PS::MOPS::Constants qw(:all);
use PS::MOPS::DC::Tracklet;
use PS::MOPS::MPC;
my $NEW_CC = 'Robert McMillan , "Ryan, Eileen" ,
ari@astro-research.org, "J. D. Armstrong" , tlister@lcogt.net,
tholen@ifa.hawaii.edu, micheli@ifa.hawaii.edu, chambers@ifa.hawaii.edu, mopsczar@ifa.hawaii.edu';
my $FOLLOWUP_CC = 'mopsczar@ifa.hawaii.edu';
my $CC;
my $SUBJ;
if ($new) {
$CC = $NEW_CC;
$SUBJ = 'PS1 NEO Candidate';
}
else {
$CC = $FOLLOWUP_CC;
$SUBJ = 'PS1 NEO Followup';
$DESIG =~ s/^P1/F0/; # convert accidental P1 prefix for followups to F0
}
my $inst = $m->notes('INST');
my $trk = modct_retrieve($inst, trackletId => $id);
my $dets_ref = $trk->detections;
my $known_str = 'N/A';
if ($trk->knownId) {
my $k = modck_lookup($inst, knownId => $trk->knownId);
$known_str = $k->{known_name};
}
my $id_str = sprintf "%6s", $DESIG;
my $int_str = $inst->dbname;
$int_str =~ s/^.*_//;
$int_str .= "/T$id";