rel_segment::delete (public)

 rel_segment::delete segment_id

Defined in packages/acs-subsite/tcl/rel-segments-procs.tcl

Deletes the specified relational segment including all relational constraints that depend on it.

Parameters:
segment_id
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
1/12/2001

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_subsite_rel_segment_new acs_subsite_rel_segment_new (test acs-subsite) rel_segment::delete rel_segment::delete test_acs_subsite_rel_segment_new->rel_segment::delete db_exec_plsql db_exec_plsql (public) rel_segment::delete->db_exec_plsql db_foreach db_foreach (public) rel_segment::delete->db_foreach packages/acs-subsite/www/admin/groups/rel-type-remove-2.tcl packages/acs-subsite/ www/admin/groups/rel-type-remove-2.tcl packages/acs-subsite/www/admin/groups/rel-type-remove-2.tcl->rel_segment::delete packages/acs-subsite/www/admin/rel-segments/delete-2.tcl packages/acs-subsite/ www/admin/rel-segments/delete-2.tcl packages/acs-subsite/www/admin/rel-segments/delete-2.tcl->rel_segment::delete packages/acs-subsite/www/admin/rel-types/delete-2.tcl packages/acs-subsite/ www/admin/rel-types/delete-2.tcl packages/acs-subsite/www/admin/rel-types/delete-2.tcl->rel_segment::delete rel_segments_delete rel_segments_delete (public, deprecated) rel_segments_delete->rel_segment::delete

Testcases:
acs_subsite_rel_segment_new
Source code:
    # First delete dependent constraints.
    db_foreach select_dependent_constraints {
        select c.constraint_id
          from rel_constraints c
         where c.required_rel_segment = :segment_id
    } {
        db_exec_plsql constraint_delete {}
    }

    db_exec_plsql rel_segment_delete {}
Generic XQL file:
<fullquery name="rel_segment::delete.select_dependent_constraints">
    <querytext>
      
	select c.constraint_id
	  from rel_constraints c
	 where c.required_rel_segment = :segment_id
    
      </querytext>
</fullquery>
packages/acs-subsite/tcl/rel-segments-procs.xql

PostgreSQL XQL file:
<fullquery name="rel_segment::delete.constraint_delete">
    <querytext>

	    select rel_constraint__delete(:constraint_id)

      </querytext>
</fullquery>

<fullquery name="rel_segment::delete.rel_segment_delete">
    <querytext>

	select rel_segment__delete(:segment_id)

      </querytext>
</fullquery>
packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql

Oracle XQL file:
<fullquery name="rel_segment::delete.constraint_delete">
    <querytext>

	    begin rel_constraint.del(:constraint_id); end;

      </querytext>
</fullquery>

<fullquery name="rel_segment::delete.rel_segment_delete">
    <querytext>

	begin rel_segment.del(:segment_id); end;

      </querytext>
</fullquery>
packages/acs-subsite/tcl/rel-segments-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: