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 $

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:

rel-type-add-2.tcl

Related Files

File Contents