rel-type-add-2.tcl
Adds the relationship type to the list of allowable ones for this group type=
- Location:
- /packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Sun Dec 10 16:57:10 2000
- CVS ID:
$Id: rel-type-add-2.tcl,v 1.8.2.1 2019/05/16 09:54:29 gustafn Exp $
Related Files
- packages/acs-subsite/www/admin/group-types/rel-type-add-2.xql
- packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl
- packages/acs-subsite/www/admin/group-types/rel-type-add-2-postgresql.xql
- packages/acs-subsite/www/admin/group-types/rel-type-add-2-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Adds the relationship type to the list of allowable ones for this group type= @author mbryzek@arsdigita.com @creation-date Sun Dec 10 16:57:10 2000 @cvs-id $Id: rel-type-add-2.tcl,v 1.8.2.1 2019/05/16 09:54:29 gustafn Exp $ } { group_type:trim,notnull rel_type:trim,notnull { return_url:localurl "" } } -validate { rel_type_acceptable_p -requires {group_type:notnull rel_type:notnull} { # This test makes sure this group_type can accept the # specified rel type. This means the group type is itself a # type (or subtype) of rel_type.object_type_one if { ![db_string types_match_p {}] } { ad_complain "Groups of type \"$group_type\" cannot use relationships of type \"$rel_type.\"" } } } if { [catch { set group_rel_type_id [db_nextval acs_object_id_seq] db_dml insert_rel_type { insert into group_type_rels (group_rel_type_id, group_type, rel_type) values (:group_rel_type_id, :group_type, :rel_type) } } err_msg] } { # Does this pair already exists? if { ![db_string exists_p {select count(*) from group_type_rels where group_type = :group_type and rel_type = :rel_type}] } { ad_return_error \ "Error inserting to database" \ $err_msg ad_script_abort } } db_release_unused_handles if { $return_url eq "" } { set return_url [export_vars -base one {group_type}] } ad_returnredirect $return_url ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: