<%args>
$objectName
$mag_limit => 22
$radius_arcmin => 5
</%args>

<%init>
my $model = $m->notes('MODEL');
my @stuff = `catOrbits --instance $model --format=MITI --detections $objectName | miti2mpc --mpcheck | mpcheck --mag_limit=$mag_limit --radius_arcmin=$radius_arcmin --insert_html --object_name=$objectName`;

$r->content_type('text/html');
$m->clear_buffer;
$m->print(@stuff);
$m->abort;
</%init>