rel-type-remove.tcl
Confirmation to remove an allowable relation type
- Location:
- /packages/acs-subsite/www/admin/group-types/rel-type-remove.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Sun Dec 10 16:40:11 2000
- CVS ID:
$Id: rel-type-remove.tcl,v 1.7 2018/01/21 00:35:29 gustafn Exp $
Related Files
- packages/acs-subsite/www/admin/group-types/rel-type-remove.xql
- packages/acs-subsite/www/admin/group-types/rel-type-remove.tcl
- packages/acs-subsite/www/admin/group-types/rel-type-remove.adp
[ hide source ] | [ make this the default ]
File Contents
# /packages/mbryzek-subsite/www/admin/group-types/rel-type-remove.tcl ad_page_contract { Confirmation to remove an allowable relation type @author mbryzek@arsdigita.com @creation-date Sun Dec 10 16:40:11 2000 @cvs-id $Id: rel-type-remove.tcl,v 1.7 2018/01/21 00:35:29 gustafn Exp $ } { group_rel_type_id:naturalnum,notnull { return_url:localurl "" } } -properties { context:onevalue rel_pretty_name:onevalue group_type_pretty_name:onevalue export_vars:onevalue } if { ![db_0or1row select_info { select g.rel_type, g.group_type, t.pretty_name as rel_pretty_name, t2.pretty_name as group_type_pretty_name from acs_object_types t, acs_object_types t2, group_type_rels g where g.group_rel_type_id = :group_rel_type_id and t.object_type = g.rel_type and t2.object_type = g.group_type }] } { ad_return_error \ "Relation already removed." \ "Please back up and reload" ad_script_abort } set export_vars [export_vars -form {group_rel_type_id return_url}] set context [list \ [list "[ad_conn package_url]admin/group-types/" "Group types"] \ [list [export_vars -base one {group_type}] "One type"] \ "Remove relation type"] ad_return_template # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: