<%args>
$known_id
$det_id
</%args>

<%init>
use Digest::MD5;
my $inst = $m->notes('INST');

my $dbname = $inst->dbname;
my $id = sprintf "%010d", $det_id;
my $reldir = join('/', 'MD', split '', substr(uc(Digest::MD5::md5_hex($id)), 0, 5));
my $file = $inst->getEnvironment('VARDIR') . "/stamps/$reldir/MD-$id.fits";
my $stuff;

if (-f $file) {
    $m->print(qq{<a target="_blank" href="known_details?known_id=$known_id"><img src="/model/$dbname/stamp.jpg?file=$file"></a>\n});
}
else {
#    $m->print("N/A ($file)");
    $m->print("N/A");
}
</%init>
