CREATE FUNCTION format_links(text,text)
RETURNS text AS '
  return qq[<a href="http://www.domain.com/$_[0]">$_[1]</a>];
' LANGUAGE 'plperl';

CREATE FUNCTION links_agg(text,text)
RETURNS text AS '
  if ($_[0]) {
    return $_[0] . qq[<br>] . $_[1];
  }
  else {
    return $_[1];
  }
' LANGUAGE 'plperl';

CREATE AGGREGATE get_links (basetype=text, sfunc=links_agg, stype=text, initcond='');