<& /htmlheader &> <& modelheader &>

Submitted Tracklets

TJD <% $nn + 1 - 50000 %> (MOPS Night Number <% $nn %>)
<% $utdate_str %>

% foreach $href (@rows) { % my $trk_dbname = $href->{dbname}; % my $trkId = $href->{tracklet_id}; % }
Database/Tracklet ID Observation
Date 		Source Chunk Internal
Designation 		MPC
Designation 		Digest2 Disposition
<% "$href->{dbname}/T$href->{tracklet_id}" %> <% mopslib_mjd2utcdatestr($href->{epoch_mjd}) %> <% defined($href->{digest}) ? $href->{survey_mode} : 'NA' %> <% $href->{desig} %> <% $href->{mpc_desig} || 'NA' %> <% defined($href->{digest}) ? $href->{digest} : 'NA' %> <% $dispmap{$href->{disposition}} || 'NA' %>
<& /htmlfooter &> <%args> $tjd <%init> use Astro::Time; use PS::MOPS::Lib qw(:all); use PS::MOPS::Constants qw(:all); my $utdate_str = mopslib_mjd2utctimestr($tjd + 50000); $utdate_str =~ s/T.*//; # trim everything after date $utdate_str .= 'UT'; my $inst = $m->notes('INST'); my $model = $m->notes('MODEL'); my $dbh = $inst->dbh(); my $epoch1 = $tjd + 50000 - 1; my $epoch2 = $epoch1 + 1; my $sql = <<"SQL"; select epoch_mjd, ra_deg, dec_deg, filter_id, mag, desig, mpc_desig, digest, dbname, tracklet_id, disposition from mpc_sub where epoch_mjd between $epoch1 and $epoch2 group by desig SQL my $sth = $dbh->prepare($sql) or die $dbh->errstr; $sth->execute() or die $sth->errstr; my @rows; my $href; while ($href = $sth->fetchrow_hashref()) { push @rows, $href; } $sth->finish();