remove-2.tcl

Removes relations

Location:

/packages/acs-subsite/www/admin/relations/remove-2.tcl

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

2000-12-16

CVS ID:

$Id: remove-2.tcl,v 1.7 2018/06/07 17:46:16 hectorr Exp $

Related Files

• packages/acs-subsite/www/admin/relations/remove-2.tcl

[ hide source ] | [ make this the default ]

File Contents

# /packages/mbryzek-subsite/www/admin/relations/remove-2.tcl

ad_page_contract {
    Removes relations

    @author Michael Bryzek (mbryzek@arsdigita.com)
    @creation-date 2000-12-16
    @cvs-id $Id: remove-2.tcl,v 1.7 2018/06/07 17:46:16 hectorr Exp $
} {
    rel_id:naturalnum,notnull
    { operation "" }
    { return_url:localurl "" }
} -validate {
    permission_p -requires {rel_id:notnull} {
        if { ![permission::permission_p -object_id $rel_id -privilege "delete"] } {
            ad_complain "The relation either does not exist or you do not have permission to remove it"
        }
    }
}

if {$operation eq "Yes, I really want to remove this relation"} {
    db_transaction {
        relation_remove $rel_id
    } on_error {
        ad_return_error "Error creating the relation" "We got the following error while trying to remove the relation: <pre>$errmsg</pre>"
        ad_script_abort
    }
} else {
    if { $return_url eq "" } {
        # redirect to the relation by default, if we haven't deleted it
        set return_url [export_vars -base one rel_id]
    }
}

db_release_unused_handles

ad_returnredirect $return_url
ad_script_abort

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