Name
Apparent Mag (V)
Review
<% sprintf "RA %.3f", $href->{v_ra_dd} %>
<% sprintf "DEC %.3f", $href->{v_dec_dd} %>
' : '' %> 
' : '' %> | Tracklet ID | Asteroid Name |
Vtot (deg/day) | Predicted Apparent Mag (V) |
Pos Ang (deg) | digest2 | GCR (arcsec) | IPP-MOPS | JT | Stamps | |
|---|---|---|---|---|---|---|---|---|---|---|
|
<% $trkId %> Review |
% my $known_name = $href->{object_name}; $known_name =~ s/^SK//; <& /mpc_link, desig => $known_name &> | % my $trk = modct_retrieve($inst, trackletId => $trkId);
<% sprintf "%.3f °/day", $href->{v_tot} %> <% sprintf "RA %.3f", $href->{v_ra_dd} %> <% sprintf "DEC %.3f", $href->{v_dec_dd} %> |
<% sprintf "%.1f V", $href->{appmag} %> | <% sprintf "%.1f°", $href->{pos_ang_deg} %> | <% sprintf "%.1f", $href->{digest} %> | <% sprintf "%.2f"", $href->{gcr_arcsec} %> | <% $href->{sumipp} > 2 ? '' : '' %> |
<% $href->{sumjt} > 2 ? '' : '' %> |
% if ($nostamp) {
Hidden % } else { | % $trk = modct_retrieve($inst, trackletId => $trkId); <& milkstamps_td, size => 64, dets => $trk->detections, short => 1, dlname => ('ipp-' . $href->{object_name}) &> % } |
<& stamp_pager, rooturi => "?nn=$nn&maxv=$maxv&minv=$minv&search=$search", limit => $limit, offset => $offset, found => $found, nostamp => $nostamp &>
<& /htmlfooter &> <%args> $nn => 55860 $limit => 100 $offset => 0 $found => undef $minv => 0.1 # default min deg/day $maxv => 20 $nostamp => undef # set to show no postage stamps $field_id => undef # single field_id $search => 'A' <%init> use List::Util qw(sum); use URI::Escape; use Astro::Time; use PS::MOPS::DC::Orbit; use PS::MOPS::Lib qw(:all); use PS::MOPS::Constants qw(:all); use PS::MOPS::DC::Field; use PS::MOPS::DC::Tracklet; use PS::MOPS::DC::Known; my $ISS_Q_THRESHOLD = 5.5; # don't submit anything with known q > this my $MPC_DIGEST_THRESHOLD = 50; # NEO digest threshold # If $offset and $inc are defined, use them for the mysql query. # Otherwise use $limit, then as a last resort, all of em. my $limit_str = ''; my $found_str = ''; if (defined($offset)) { $limit = 100 unless $limit; $limit_str = sprintf 'limit %d,%d', $offset, $limit; } else { $limit_str = $limit ? "limit $limit" : ''; } my $field_sel = ''; if ($field_id) { $field_sel = "and field_id=$field_id"; } my $order_str; my $search_str = '?'; if ($search eq 'A') { $order_str = 'order by appmag'; $search_str = 'Showing All Asteroids'; } elsif ($search eq 'I') { $order_str = 'having sumipp > 2 and sumjt <= 2 order by appmag'; $search_str = 'Showing IPP Only'; } elsif ($search eq 'J') { $order_str = 'having sumjt > 2 and sumipp <= 2 order by appmag'; $search_str = 'Showing JT Only'; } elsif ($search eq 'B') { $order_str = 'having sumjt > 2 and sumipp > 2 order by appmag'; $search_str = 'Showing Both IPP and JT'; } elsif ($search eq 'N') { $order_str = 'having sumjt <= 2 and sumipp <= 2 order by appmag'; $search_str = 'Showing Neither IPP nor JT'; } my $utdate_str = mopslib_mjd2utctimestr($nn + 1); $utdate_str =~ s/T.*//; # trim everything after date $utdate_str .= 'UT'; if (!defined($found)) { $found_str = 'SQL_CALC_FOUND_ROWS'; } my $inst = $m->notes('INST'); my $dbname = $inst->dbname; my $model = $m->notes('MODEL'); my $dbh = $inst->dbh(); my $mc = $inst->getConfig; my $v2filt = $mc->{site}->{v2filt}; my $substh = $dbh->prepare(<<"SQL") or die $dbh->errstr; select disposition, desig, mpc_desig from export.mpc_sub where dbname=? and tracklet_id=? limit 1 SQL my $sql = <<"SQL"; select $found_str t.tracklet_id tracklet_id, t.digest digest, t.v_tot v_tot, t.v_ra v_ra_dd, t.v_dec v_dec_dd, t.pos_ang_deg pos_ang_deg, t.gcr_arcsec gcr_arcsec, avg(d.mag) appmag, s.object_name object_name, f.se_deg sol_elong, f.eb_deg ecl_lat, f.fpa_id, sum(if(proc_id&1!=0,1,0)) sumipp, sum(if(proc_id&2!=0,1,0)) sumjt from fields f join tracklets t ignore index(classification) using(field_id) join tracklet_attrib ta using(tracklet_id) left join known k using(known_id) join ssm s on t.ssm_id=s.ssm_id join detections d on ta.det_id=d.det_id where f.nn = $nn and t.classification='C' $field_sel group by t.tracklet_id $order_str $limit_str 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(); if ($found_str) { ($found) = $dbh->selectrow_array("select FOUND_ROWS()"); }