--
-- acs_mail_link__link_p/1
--
create or replace function acs_mail_link__link_p(
  integer
) returns bool as $$

declare
	p_object_id				alias for $1;
    v_check_link_id			integer;
begin
    select count(mail_link_id) into v_check_link_id
      from acs_mail_links
      where mail_link_id = p_object_id;

    if v_check_link_id <> 0 then
        return 't';
    else
        return 'f';
    end if;
end;
$$ language plpgsql;