add-2.tcl
Adds relation type
- Location:
- /packages/acs-subsite/www/admin/rel-types/add-2.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Sun Nov 12 18:05:09 2000
- CVS ID:
$Id: add-2.tcl,v 1.4 2018/01/19 14:09:48 gustafn Exp $
Related Files
- packages/acs-subsite/www/admin/rel-types/add-2.xql
- packages/acs-subsite/www/admin/rel-types/add-2.tcl
[ hide source ] | [ make this the default ]
File Contents
# /packages/mbryzek-subsite/www/admin/rel-type/add-2.tcl ad_page_contract { Adds relation type @author mbryzek@arsdigita.com @creation-date Sun Nov 12 18:05:09 2000 @cvs-id $Id: add-2.tcl,v 1.4 2018/01/19 14:09:48 gustafn Exp $ } { constraint_id:naturalnum,notnull rel_type:notnull object_type:notnull { return_url:localurl "" } } db_dml update_rel_type_mapping { insert into group_type_allowed_rels (constraint_id, group_type, rel_type) values (:constraint_id, :object_type, :rel_type) } ad_returnredirect $return_url ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: