delete.tcl

Deletes a role if there are no relationship types that use it

Location:
/packages/acs-subsite/www/admin/rel-types/roles/delete.tcl
Author:
mbryzek@arsdigita.com
Created:
Mon Dec 11 11:30:53 2000
CVS ID:
$Id: delete.tcl,v 1.6 2018/05/24 09:40:11 michaela Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/mbryzek-subsite/www/admin/rel-types/roles/delete.tcl

ad_page_contract {

    Deletes a role if there are no relationship types that use it

    @author mbryzek@arsdigita.com
    @creation-date Mon Dec 11 11:30:53 2000
    @cvs-id $Id: delete.tcl,v 1.6 2018/05/24 09:40:11 michaela Exp $

} {
    role:notnull
    { return_url:localurl "" }
} -properties {
    context:onevalue
    pretty_name:onevalue
    export_vars:onevalue
}

set context [list [list "../" "Relationship types"] [list "" "Roles"] [list [export_vars -base one role] "One role"] "Delete role"]

set export_vars [export_vars -form {role return_url}]

set pretty_name [db_string select_role_pretty_name {
    select r.pretty_name from acs_rel_roles r where r.role = :role
}]

ad_return_template

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