<%args>
$desig
$neocp_desig => ''
</%args>
% if ($desig) {
%    if ($desig =~ /^(\d\d\d\d)([A-Z][A-Z])(\d*)$/) { $desig = "$1 $2$3"; }
%    my $foodesig = $desig; $foodesig =~ s/[()]//g;
%    my $uri_desig = $foodesig; $uri_desig =~ s/ /+/g;
%    my $html_desig = $desig; $html_desig =~ s/\s+/&nbsp;/g;
    <a target="_blank" href="http://www.minorplanetcenter.net/db_search/show_object?object_id=<% $uri_desig %>&commit=Show">
    <% $html_desig %>
    </a>
% } elsif ($neocp_desig) {
    <a href="/model/psmops_ps1_mdrm152/plot_neocp.html?desig=<% $neocp_desig %>">MPC</a>
% } else {
  N/A
% }
