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

[ 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: