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
[ 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: