delete-2.tcl

Deletes a group

Location:

/packages/acs-subsite/www/admin/groups/delete-2.tcl

Author:

mbryzek@arsdigita.com

Created:

Fri Dec 8 14:41:36 2000

CVS ID:

$Id: delete-2.tcl,v 1.8 2018/06/07 17:30:17 hectorr Exp $

Related Files

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

[ hide source ] | [ make this the default ]

File Contents

# /packages/mbryzek-subsite/www/admin/groups/delete-2.tcl

ad_page_contract {

    Deletes a group

    @author mbryzek@arsdigita.com
    @creation-date Fri Dec  8 14:41:36 2000
    @cvs-id $Id: delete-2.tcl,v 1.8 2018/06/07 17:30:17 hectorr Exp $

} {
    group_id:naturalnum,notnull
    { operation "" }
    { return_url:localurl "" }
} -validate {
    groups_exists_p -requires {group_id:notnull} {
        if { ![permission::permission_p -object_id $group_id -privilege "read"] } {
            ad_complain "The group either does not exist or you do not have permission to view it"
        }
    }
}

if {$operation eq "Yes, I really want to delete this group"} {
    db_transaction {
        set group_type [group::delete $group_id]
    }
    if { $return_url eq "" && $group_type ne "" } {
        set return_url [export_vars -base ../group-types/one group_type]
    }
} else {
    if { $return_url eq "" } {
        set return_url [export_vars -base one group_id]
    }
}

ad_returnredirect $return_url
ad_script_abort

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