<& /htmlheader &>
<%perl>
if ($all) {
print foreach (@stuff); # print all rows
}
else {
print foreach (@stuff[0..500]); # print first N rows
}
<& /htmlfooter &>
<%args>
$all => undef
<%init>
my $model = $m->notes('MODEL');
my @stuff = `catOrbits --instance $model --format=MITI --derived --resid --classification --sortby q`;
# Put in table tags.
my @elems;
my $zug; # tmp str
foreach my $line (@stuff) {
@elems = split /\s+/, $line;
# Format for precision.
$elems[0] = sprintf "%.5f", $elems[0]; # q
$elems[1] = sprintf "%.4f", $elems[1]; # e
$elems[2] = sprintf "%.4f", $elems[2]; # i
$elems[3] = sprintf "%.6f", $elems[3]; # node
$elems[4] = sprintf "%.6f", $elems[4]; # argPeri
$elems[5] = sprintf "%.6f", $elems[5]; # timePeri
$elems[6] = sprintf "%.3f", $elems[6]; # hV
$elems[7] = sprintf "%.6f", $elems[7]; # epoch
$elems[9] = sprintf "%.2f", $elems[9]; # residual
push @elems, qq{Detections};
push @elems, qq{History};
$line = '| ' . join(' | ', @elems) . " |
\n";
}