delete.tcl

Deletes a group

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

mbryzek@arsdigita.com

Created:

Fri Dec 8 14:32:28 2000

CVS ID:

$Id: delete.tcl,v 1.9 2018/06/20 08:44:15 antoniop Exp $

File Contents

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

ad_page_contract {

    Deletes a group

    @author mbryzek@arsdigita.com
    @creation-date Fri Dec  8 14:32:28 2000
    @cvs-id $Id: delete.tcl,v 1.9 2018/06/20 08:44:15 antoniop Exp $

} {
    group_id:integer,notnull
} -properties {
    context:onevalue
    group_name:onevalue
    number:onerow
    group_id:onevalue
} -validate {
    groups_exists_p -requires {group_id:notnull} {
        if { ![permission::permission_p -object_id $group_id -privilege "delete"] } {
            ad_complain "The group either does not exist or you do not have permission to delete it"
        }
    }
}

set context [list [list "" "Groups"] [list [export_vars -base one {group_id}] "One Group"] "Nuke group"]
set group_name [group::get_element -group_id $group_id -element group_name]
set export_form_vars [export_vars -form {group_id}]

db_1row select_counts {
    select (select count(*) from group_element_map where group_id = :group_id) as elements,
           (select count(*) from rel_segments where group_id = :group_id) as segments,
           (select count(*)
              from rel_constraints cons, rel_segments segs
             where segs.segment_id in (cons.rel_segment,cons.required_rel_segment)
               and segs.group_id = :group_id) as constraints
      from dual
} -column_array number

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

delete.tcl

Related Files

File Contents