--
-- acs_event__get_html_p/1
--
create or replace function acs_event__get_html_p(
  integer
) returns bool as $$
	-- acs_events.html_p%TYPE
declare
       get_html_p__event_id    alias for $1; -- in acs_events.event_id%TYPE 
       v_html_p		acs_events.html_p%TYPE; 
begin
       select coalesce(e.html_p, a.html_p) into v_html_p
       from  acs_events e
       left join acs_activities a
       on (e.activity_id = a.activity_id)
       where e.event_id = get_html_p__event_id;

       return v_html_p;

end;$$ language plpgsql;