select primary_object_type from contact_rel_types where primary_role = :role_two select acs_rel_type__role_pretty_name(primary_role) as pretty_name, primary_role as role from contact_rel_types where secondary_object_type in ([template::util::tcl_to_sql_list $object_types]) group by primary_role order by upper(acs_rel_type__role_pretty_name(primary_role)) select * from contact_rel_types where primary_role = :role_one and secondary_role = :role_two and primary_object_type in ([template::util::tcl_to_sql_list $object_types]) select secondary_role from contact_rel_types where primary_role = :role_one and secondary_role = :role_two and primary_object_type in ([template::util::tcl_to_sql_list $object_types]) select acs_rel_type__role_pretty_name(:role_one) select acs_rel_type__role_pretty_name(primary_role), primary_role from contact_rel_types where secondary_role = :role_two and primary_object_type in ([template::util::tcl_to_sql_list $object_types]) select role_one from acs_rel_types where rel_type = :rel_type select acs_object__delete(rel_id) from acs_rels where ( ( object_id_one = :object_id_one and object_id_two = :object_id_two ) ) or ( ( object_id_one = :object_id_two and object_id_two = :object_id_one ) ) and rel_type = :rel_type