rel-type-remove.tcl
Confirmation page to remove a given relationship type from the list of allowable ones.
- Location:
- /packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Tue Jan 2 12:23:02 2001
- CVS ID:
$Id: rel-type-remove.tcl,v 1.8 2018/06/20 08:35:45 antoniop Exp $
Related Files
- packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
- packages/acs-subsite/www/admin/groups/rel-type-remove.adp
[ hide source ] | [ make this the default ]
File Contents
# /packages/mbryzek-subsite/www/admin/groups/rel-type-remove.tcl ad_page_contract { Confirmation page to remove a given relationship type from the list of allowable ones. @author mbryzek@arsdigita.com @creation-date Tue Jan 2 12:23:02 2001 @cvs-id $Id: rel-type-remove.tcl,v 1.8 2018/06/20 08:35:45 antoniop Exp $ } { group_rel_id:naturalnum,notnull { return_url:localurl "" } } -properties { context:onevalue rel_pretty_name:onevalue group_name:onevalue export_vars:onevalue } if { ![db_0or1row select_info { select g.rel_type, g.group_id, (select group_name from groups where group_id = g.group_id) as group_name, t.pretty_name as rel_pretty_name from acs_object_types t, group_rels g where g.group_rel_id = :group_rel_id and t.object_type = g.rel_type }] } { ad_return_error "Relation already removed." "Please back up and reload" ad_script_abort } permission::require_permission -object_id $group_id -privilege admin set export_vars [export_vars -form {group_rel_id return_url}] set context [list \ [list "[ad_conn package_url]admin/groups/" "Groups"] \ [list [export_vars -base one {group_id}] "One group"] \ "Remove relation type"] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: