rel-type-remove-2.tcl
Removes the specified relation from the list of allowable ones
- Location:
- /packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Sun Dec 10 16:45:32 2000
- CVS ID:
$Id: rel-type-remove-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $
Related Files
- packages/acs-subsite/www/admin/group-types/rel-type-remove-2.xql
- packages/acs-subsite/www/admin/group-types/rel-type-remove-2.tcl
[ hide source ]
File Contents
ad_page_contract { Removes the specified relation from the list of allowable ones @author mbryzek@arsdigita.com @creation-date Sun Dec 10 16:45:32 2000 @cvs-id $Id: rel-type-remove-2.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $ } { group_rel_type_id:naturalnum,notnull { return_url:localurl "" } { operation:trim "No, I want to cancel my request" } } if { $return_url eq "" } { # Pull out the group_type now as we may delete the row later db_1row select_group_type { select g.group_type from group_type_rels g where g.group_rel_type_id = :group_rel_type_id } set return_url [export_vars -base one {group_type}] } if {$operation eq "Yes, I really want to remove this relationship type"} { db_transaction { db_dml remove_relation { delete from group_type_rels where group_rel_type_id = :group_rel_type_id } } } ad_returnredirect $return_url ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: