--
-- journal_entry__delete_for_object/1
--
create or replace function journal_entry__delete_for_object(
  integer
) returns int4 as $$

declare
  delete_for_object__object_id          alias for $1;  
  journal_rec                           record;
begin
        for journal_rec in select journal_id 
                             from journal_entries 
                            where object_id = delete_for_object__object_id  
        LOOP
	    PERFORM journal_entry__delete(journal_rec.journal_id);
	end loop;

        return 0; 
end;$$ language plpgsql;