<table border=1 cellspacing=0 cellpadding=2>
<tr>

<td valign="top">
  <table border=0 cellspacing=0 cellpadding=0>
  <tr> <td>

    <h2> Field ID <% $field_id %><br>
    <% $field->fpaId || '' %>
    </h2>
    <a href="/czar/<% $model %>/decider.html?fpa_id=<% $field->fpaId %>">Decider Page</a><p>
    <h3>
    MJD <% $mjd %><br>
    <% mopslib_mjd2localtimestr($field->epoch, 0, 'T') . ' UT' %><br>
    Local time: <% $date %><br>
    Night <% $nn %><br>
    <b><% $field->surveyMode %></b><br>
    <% $field->diffId ? ('Diff ID ' . $field->diffId) : '' %><br>
    <p>
    <b>
    RA, DEC = <% sprintf "%.5f", $field->ra %>, <% sprintf "%.5f", $field->dec %><br>
    Filter: <% $field->filter %><br>
    </b>
    Position Angle: <% sprintf "%.2f", $field->pa_deg %>&deg; <br>
    Solar Elongation: <% sprintf "%.2f", $field->se_deg %>&deg; <br>
    Ecliptic Latitude: <% sprintf "%.2f", _ecllat($field->ra, $field->dec, $field->epoch) %>&deg; <br>
    Galactic Latitude: <% sprintf "%.2f", $field->gb_deg%>&deg; <br>
    </h3>

  </td> </tr>

  <tr> <td align="center" valign="top"> 
    <h2>Overview</h2>
    <img src="minifplot1?field_id=<% $field_id %>"/>
  </td> </tr>

  <tr> <td align="center" valign="top"> 
    <img src="magdist?nonsynthetic=1&imgtype=png&field_id=<% $field_id %>"/>
  </td> </tr>

  <tr> <td align="center" valign="top"> 
    <img src="magdist?nonsynthetic=0&imgtype=png&field_id=<% $field_id %>"/>
  </td> </tr>

  </table>
</td>

<td colspan=3 align="center">
<h2>Detections</h2>
<img src="plot_detections?imgtype=png&field_id=<% $field_id %>&hilightobj=<% $hilightobj %>"/>
</td>

</tr>
</table>

<%args>
$field_id => undef
$fpa_id => undef
$hilightobj => undef
</%args>

<%init>
use Astro::Time;
use Astro::SLA;
use PS::MOPS::Lib qw(:all);
use PS::MOPS::Constants qw($DEG_PER_RAD);
use PS::MOPS::Lib qw(:all);
use PS::MOPS::DC::Field;

undef($hilightobj) if $hilightobj && $hilightobj eq 'NS';

my $model = $m->notes('MODEL');
my $inst = $m->notes('INST');
my $cfg = $inst->getConfig;
my $gmt_offset_hours = $cfg->{site}->{gmt_offset_hours};

sub _mjd2datestr {
    my ($mjd) = @_;
    my ($day, $month, $year, $ut) = mjd2cal($mjd);
    my ($sign, $hour, $min, $sec) = time2hms($ut, 'H', 2);
    return sprintf "%4d-%02d-%02dT%02d:%02d:%04.1f", $year, $month, $day, $hour, $min, $sec;
}

sub _ecllat {
    my ($ra_deg, $dec_deg, $epoch) = @_;
    my ($ecllong, $ecllat);
    slaEqecl($ra_deg / $DEG_PER_RAD, $dec_deg / $DEG_PER_RAD, $epoch, $ecllong, $ecllat);
    return $ecllat * $DEG_PER_RAD;
}

my $field;
if ($fpa_id) {
    $field = modcf_retrieve($inst, fpaId => $fpa_id);
    $field_id = $field->fieldId;
}
else {
    $field = modcf_retrieve($inst, fieldId => $field_id);
}
my $mjd = $field->epoch;
my $nn = mopslib_mjd2nn($mjd, $gmt_offset_hours);
my $date = _mjd2datestr($mjd + $gmt_offset_hours / 24.0);

</%init>
