Field ID <% $field->fieldId %><br>
Night <% $field->nn %><br>
<% _mjd2datestr($field->epoch + $gmt_offset_hours / 24.0) %><br>
MJD <% sprintf("%.5f", $field->epoch) %><br>
<% $field->fpaId ? ('FPA ID ' . $field->fpaId) : '' %>

<%args>
$field_id
</%args>

<%init>
use Astro::Time;
#use PS::MOPS::Lib qw(:all);
use PS::MOPS::DC::Field;

my $inst = $m->notes('INST');
my $cfg = $inst->getConfig;
my $gmt_offset_hours = $cfg->{site}->{gmt_offset_hours};
my $field = modcf_retrieve($inst, fieldId => $field_id);

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

</%init>
