-- -- pinds_blog_entry__delete/1 -- create or replace function pinds_blog_entry__delete( integer ) returns int4 as $$ declare p_entry_id alias for $1; comment_rec record; begin -- delete comments associated with this entry for comment_rec in select gc.comment_id from general_comments gc where gc.object_id = p_entry_id loop perform acs_message__delete(comment_rec.comment_id); end loop; delete from pinds_blog_entries where entry_id = p_entry_id; PERFORM acs_object__delete(p_entry_id); return 0; end; $$ language plpgsql;