<& modelheader &>
<table border=0 width="90%">
<tr>
<td valign="top">
<h2><% $title %></h2>
<h3>TJD <% $tjd %> (MOPS Night Number <% $tjd + 50000 - 1 %>)<br>
<% $utdate_str %>
</h3>
</td>
<td align="right" valign="top">
% if ($cz and scalar keys %{$cz} > 1) {
Also czaring this chunk:<br>
<% map { qq{<span class="czarbox">&nbsp; $_ &nbsp;</span> } } grep { $_ ne $ENV{REMOTE_USER} } sort keys %{$cz} %>
% }
</td>
</tr>
</table>


<%args>
$title
$tjd
$cz => undef
</%args>

<%init>
use PS::MOPS::Lib qw(mopslib_mjd2utctimestr);
my $utdate_str = mopslib_mjd2utctimestr($tjd + 50000);
$utdate_str =~ s/T.*//; # trim everything after date
$utdate_str .= 'UT';
</%init>
