<& /htmlheader, title => "Submitter summary, Night $nn" &>
<& modelheader &>
| Submitter | Night | All | Pairs |
% for my $row (@rows) {
<% $row->{sub2} %> |
% my $nnn = mopslib_mjd2nn($row->{tjd2} + 50000, $mc->{site}->{gmt_offset_hours});
<% $nnn %> |
<% qq{$row->{allt}} %> |
<% qq{$row->{pairs} | Unknown} %> |
% }
<& /htmlfooter &>
<%args>
$nn => undef
<%init>
use URI::Escape;
use Astro::Time;
use PS::MOPS::Lib qw(:all);
use PS::MOPS::Constants qw(:all);
my $inst = $m->notes('INST');
my $dbname = $inst->dbname;
my $model = $m->notes('MODEL');
my $mc = $inst->getConfig();
my $dbh = $inst->dbh();
my $mjd;
my $mjd1;
if (!defined($nn)) {
$mjd = now2mjd();
$nn = mopslib_mjd2nn($mjd, $mc->{site}->{gmt_offset_hours});
}
$mjd1 = $mjd - 30;
my $sql = <<"SQL";
select q2.submitter sub2, q2.tjd tjd2, sum(if(nd=2,1,0)) pairs, sum(1) allt
from (
select submitter, right(left(fpa_id,5),4) tjd, desig, count(*) nd
from export.mpc_sub where epoch_mjd between ? and ?
group by desig
) as q2
group by submitter, tjd
order by submitter, tjd
SQL
my $sth = $dbh->prepare($sql) or die $dbh->errstr;
$sth->execute($mjd1, $mjd) or die $sth->errstr;
my @rows;
my $href;
while ($href = $sth->fetchrow_hashref()) {
push @rows, $href;
}
$sth->finish();
# Assemble rows into table for each user.