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 (required)

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

1/12/2001

Partial Call Graph (max 5 caller/called nodes):

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