constraints-create.tcl

Describes constraints and offers the option to create a relational segment for this rel_type

Location:
/packages/acs-subsite/www/admin/groups/constraints-create.tcl
Author:

mbryzek@arsdigita.com

Created:

Thu Jan 4 10:54:36 2001

CVS ID:

$Id: constraints-create.tcl,v 1.6.2.1 2020/01/02 17:36:08 antoniop Exp $

File Contents

# /packages/mbryzek-subsite/www/admin/groups/constraints-create.tcl

ad_page_contract {

    Describes constraints and offers the option to create a relational
    segment for this rel_type

    @author mbryzek@arsdigita.com
    @creation-date Thu Jan  4 10:54:36 2001
    @cvs-id $Id: constraints-create.tcl,v 1.6.2.1 2020/01/02 17:36:08 antoniop Exp $

} {
    group_id:notnull,naturalnum
    rel_type:notnull
    { return_url:localurl "" }
} -properties {
    context:onevalue
    export_vars:onevalue
    rel_type_pretty_name:onevalue
    group_name:onevalue
}

set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list [export_vars -base one group_id] "One Group"] "Add constraint"]
set export_vars [export_vars -form {group_id rel_type return_url}]

db_1row select_props {
    select (select group_name from groups
            where group_id = :group_id) as group_name,
           t.pretty_name as rel_type_pretty_name
      from acs_object_types t
     where t.object_type = :rel_type
}

ad_return_template



# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End:

constraints-create.tcl

Related Files

File Contents