<%args>
$trkId
$mag_limit => 22.5
$radius_arcmin => 5
$brief => undef
</%args>

<%init>
my $model = $m->notes('MODEL');

# hacky hacky. We know that mpcheck will name detections MOPS000, MOPS001 for MPC submission, so change
# them back to tracklet ID for readability.
my $filter_str = $brief ? '--brief' : '';
my $cmd = "mt --miti --xd T$trkId --instance=$model | miti2mpc --mpcheck | mpcheck $filter_str --mag_limit=$mag_limit --radius_arcmin=$radius_arcmin --insert_html --object_name=FOO | perl -pe 's/MOPS\\d+/T$trkId/'";
my @stuff = `$cmd`;

$r->content_type('text/html');
$m->clear_buffer;
$m->print(@stuff);
$m->abort;
</%init>