delete-2.tcl

Deletes the specified constraint

Location:
/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl
Author:
mbryzek@arsdigita.com
Created:
Fri Dec 15 11:27:27 2000
CVS ID:
$Id: delete-2.tcl,v 1.8 2018/01/19 14:09:48 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/mbryzek-subsite/www/admin/rel-segments/constraints/delete-2.tcl

ad_page_contract {

    Deletes the specified constraint

    @author mbryzek@arsdigita.com
    @creation-date Fri Dec 15 11:27:27 2000
    @cvs-id $Id: delete-2.tcl,v 1.8 2018/01/19 14:09:48 gustafn Exp $

} {
    constraint_id:naturalnum,notnull
    { operation "" }
    { return_url:localurl "" }
}

permission::require_permission -object_id $constraint_id -privilege delete

set package_id [ad_conn package_id]

if {$operation eq "Yes, I really want to delete this constraint"} {

    if { $return_url eq "" } {
    # Redirect to the rel-segment page by default. 
    if { [db_0or1row select_segment_id {
        select c.rel_segment as segment_id from rel_constraints c where c.constraint_id = :constraint_id
    }] } {
        set return_url [export_vars -base ../one {segment_id}]
    }
    }

    if { ![db_0or1row select_constraint_props {
    select 1
        from rel_constraints c, application_group_segments s,
             application_group_segments s2
    where c.rel_segment = s.segment_id
          and c.constraint_id = :constraint_id
          and s.package_id = :package_id
          and s2.segment_id = c.required_rel_segment
          and s2.package_id = :package_id
    }] } {
    # The constraint is already deleted or not in scope
    ad_returnredirect $return_url
        ad_script_abort
    }
    
    db_exec_plsql delete_constraint {}
    db_release_unused_handles

} elseif { $return_url eq "" } {
    # if we're not deleting, redirect to the constraint page
    set return_url [export_vars -base one constraint_id]
}


ad_returnredirect $return_url
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: