delete-2.tcl

Deletes a group type

Location:

/packages/acs-subsite/www/admin/group-types/delete-2.tcl

Author:

mbryzek@arsdigita.com

Created:

Wed Nov 8 18:29:11 2000

CVS ID:

$Id: delete-2.tcl,v 1.12.2.1 2019/05/16 09:54:29 gustafn Exp $

Related Files

• packages/acs-subsite/www/admin/group-types/delete-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Deletes a group type

    @author mbryzek@arsdigita.com
    @creation-date Wed Nov  8 18:29:11 2000
    @cvs-id $Id: delete-2.tcl,v 1.12.2.1 2019/05/16 09:54:29 gustafn Exp $

} {
    group_type
    { return_url:localurl "" }
    { operation "" }
} -properties {
    context:onevalue
} -validate {
    user_can_delete_group -requires {group_type:notnull} {
        if { ![group_type::drop_all_groups_p $group_type] } {
            ad_complain "Groups exist that you do not have permission to delete. All groups must be deleted before you can remove a group type. Please contact the site administrator."
        }
    }
}

if { $operation ne "Yes, I really want to delete this group type" } {
    if { $return_url eq "" } {
        ad_returnredirect [export_vars -base one {group_type}]
    } else {
        ad_returnredirect $return_url
    }
    ad_script_abort
}

if {[catch {
    group_type::delete -group_type $group_type
} errmsg]} {
    ad_return_error "Error deleting group type" "We got the following error trying to delete this group type:<pre>$errmsg</pre>"
    ad_script_abort
}

ad_returnredirect $return_url
ad_script_abort

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