--
-- acs_rel_type__drop_type/2
--
create or replace function acs_rel_type__drop_type(
  character varying,
  boolean
) returns int4 as $$

declare
  drop_type__rel_type               alias for $1;  
  drop_type__cascade_p              alias for $2;  -- default 'f'  
  v_cascade                         boolean;
begin
    -- XXX do cascade_p.
    -- JCD: cascade_p seems to be ignored in acs_o_type__drop_type anyway...
    if drop_type__cascade_p is null then 
	v_cascade_p := 'f';
    else 
	v_cascade_p := drop_type__cascade_p;
    end if;

    delete from acs_rel_types
	  where rel_type = drop_type__rel_type;

    PERFORM acs_object_type__drop_type(drop_type__rel_type, 
                                       v_cascade_p);

    return 0; 
end;$$ language plpgsql;