my ($type,$num) = $nodeloc =~ /^([aAeEsS])(\d{1,2})$/;
if (defined $type and defined $num)
{
  $type = uc $type;
  $num = sprintf q[%02d], $num;
  my %map = (
    A=>['apo', 'Apocalypse'],
    E=>['exo', 'Exogesis'],
    S=>['syn', 'Synopsis']
  );
  $title ||=$map{$type}[1] . ' ' . $num;
  return qq[<a href="http://dev.perl.org/perl6/doc/$map{$type}[0]/$type$num.html">$title</a>];
  }
  else
  {
    return qq([$prefix://$nodeloc])
  }
}