| Internal Designation |
Database/Tracklet ID | Observation Date |
Source Chunk | Digest2 | Disposition | Submitter | MPC Designation |
|---|---|---|---|---|---|---|---|
| <% $href->{desig} %> | % if ($href->{dbname} and $href->{tracklet_id}) { <% "$href->{dbname}/T$href->{tracklet_id}" %> % } else { NA % } | <% mopslib_mjd2utctimestr($href->{epoch_mjd}, ' ') %> | <% $href->{survey_mode} %> | <% defined($href->{digest}) ? sprintf("%.1f", $href->{digest}) : 'NA' %> | <% $dispmap{$href->{disposition}} || 'NA' %> | <% $href->{submitter} %> | <& /mpc_link, desig => $href->{mpc_desig}, neocp_desig => $href->{desig} &> |
|
Observations:
% foreach my $ob (@obs) {
<% PS::MOPS::MPC::det2mpc($ob, $desig) %>
% }
|
|||||||
<& /htmlfooter &> <%args> $desig <%init> use Astro::Time; use PS::MOPS::Lib qw(:all); use PS::MOPS::Constants qw(:all); use PS::MOPS::MPC; use PS::MOPS::DC::Instance; my %dispmap = ( S => 'SUBMITTED', T => 'SUBMITTED, NON-NEO', C => 'DISCOVERY, NEO', A => 'DISCOVERY, PHA', M => 'DISCOVERY, COMET', N => 'DISCOVERY, NON-NEO', R => 'RECOVERY, NEO', K => 'KNOWN', D => 'DOWNGRADED', O => 'OUTREACH', J => 'REJECTED', ); my @dispsel = qw(S T C A N K D O J); # allowed dispositions # LD XXX need to wrap this into PS::MOPS::MPC::Export. my $inst = PS::MOPS::DC::Instance->new(DBNAME => 'psmops_export'); my $dbh = $inst->dbh(); my @obs; my $sql = <<"SQL"; select epoch_mjd, survey_mode, ra_deg, dec_deg, filter_id, mag, obscode, desig, mpc_desig, digest, dbname, tracklet_id, disposition, submitter from export.mpc_sub where desig=? order by epoch_mjd desc SQL my $sth = $dbh->prepare($sql) or die $dbh->errstr; $sth->execute($desig) or die $sth->errstr; my $href; while (my $h = $sth->fetchrow_hashref()) { push @obs, { epoch => $h->{epoch_mjd}, ra => $h->{ra_deg}, dec => $h->{dec_deg}, mag => $h->{mag}, filter => $h->{filter_id}, obscode => $h->{obscode} }; $href = $h unless $href; # keep first one only as ref to group } $sth->finish();