% } % foreach $href (@rows) { % my $trkId = $href->{tracklet_id}; % my $trk = modct_retrieve($inst, trackletId => $trkId); % }

Tracklet ID	digest2 (MOPS) Sort	Position	Vtot (deg/day) Sort	Pos Ang (deg) Sort	Known As	Known q Sort	Stamps
<% $trkId %> MPCheck NEO Digest (MOPS) NEO Digest (MPC) OORB NEO MPC Dets	<% sprintf "%.1f", $trk->digest %>	α: <% sprintf "%.6f", $trk->extRA %> <% turn2str(deg2turn($trk->extRA), 'H', 2, 'hms') %> δ: <% sprintf "%.6f", $trk->extDEC %> <% turn2str(deg2turn($trk->extDEC), 'D', 2, 'deg') %>   S Elong: <% sprintf "%.2f", $href->{sol_elong} %> Ecl β: <% sprintf "%+.2f", $href->{ecl_lat} %>	<% sprintf "%.3f", $trk->vTot %>	<% sprintf "%.1f", $trk->posAng %>	<& /mpc_link, desig => $href->{known_name} &>	{q} && $href->{q} <= 1.3) ? 'style="background:red"' : '' %> align="center"> <% $href->{q} ? sprintf("%.2f", $href->{q}) : 'N/A' %>	<& stamp4_td, dets => $trk->detections &>

% if ($limit_str) { First | % if ($offset > 0) { Previous <% $limit %> | % } Next <% $limit %>

% } <& /htmlfooter &> <%args> $nn $limit => undef $sort => 'd' # 'd', 'v', 'q', 'p' allowed (digest, velocity, q, posang) $offset => undef $v_max => 0.15 <%init> use Astro::Time; use PS::MOPS::DC::Orbit; use PS::MOPS::Lib qw(:all); use PS::MOPS::Constants qw(:all); use PS::MOPS::DC::Tracklet; use PS::MOPS::DC::Known; my $limit_str = ''; my $sort_str = ''; if (defined($offset)) { $limit = 100 unless $limit; $limit_str = sprintf 'limit %d,%d', $offset, $limit; } else { $limit_str = $limit ? "limit $limit" : ''; } if ($sort eq 'q') { $sort_str = 'order by if(q is null,999,q)'; } elsif ($sort eq 'v') { $sort_str = 'order by v_tot desc'; } elsif ($sort eq 'p') { $sort_str = 'order by pos_ang_deg desc'; } else { $sort_str = 'order by digest desc, v_tot desc'; } my $inst = $m->notes('INST'); my $model = $m->notes('MODEL'); my $dbh = $inst->dbh(); my $sth = $dbh->prepare(<<"SQL") or die $dbh->errstr; select t.tracklet_id tracklet_id, t.digest digest, k.q q, k.known_name known_name, f.se_deg sol_elong, f.eb_deg ecl_lat from fields f join tracklets t using(field_id) left join known k using(known_id) join tracklet_attrib ta using(tracklet_id) where f.nn = $nn and t.classification='N' and t.v_tot < $v_max group by ta.tracklet_id having count(tracklet_id) > 3 $sort_str $limit_str SQL $sth->execute() or die $sth->errstr; my @rows; my $href; while ($href = $sth->fetchrow_hashref()) { push @rows, $href; } # Build result list of tracklets.