• Publicity: Public Only All

group-type-procs.tcl

Procs for creating group types

Location:
packages/acs-subsite/tcl/group-type-procs.tcl
Created:
Tue Nov 7 22:52:39 2000
Author:
mbryzek@arsdigita.com
CVS Identification:
$Id: group-type-procs.tcl,v 1.15 2024/09/11 06:15:48 gustafn Exp $

Procedures in this file

Detailed information

group_type::delete (public)

 group_type::delete -group_type group_type

Deletes a group type

Switches:
-group_type (required)
type to be deleted

Testcases:
acs_subsite_group_type

group_type::drop_all_groups_p (public)

 group_type::drop_all_groups_p [ -user_id user_id ] group_type

Returns 1 if the user has permission to delete all groups of the specified type. 0 otherwise. user_id defaults to ad_conn user_id if we have a connection. If there is no connection, and no user id, throws an error.

Switches:
-user_id (optional)
Parameters:
group_type (required)
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
12/2000

Testcases:
No testcase defined.

group_type::new (public)

 group_type::new [ -group_type group_type ] [ -execute_p execute_p ] \
    [ -supertype supertype ] pretty_name pretty_plural

Creates a new group type

Example:

        # create a new group of type user_discount_class
        set group_type [group_type::new -group_type $group_type  -supertype group  "User Discount Class" "User Discount Classes"]
        

Switches:
-group_type (optional)
The type of group_type to create. If empty, we generate a unique group_type based on "group_id" where id is the next value from acs_object_id_seq.
-execute_p (optional, defaults to "t")
If t, we execute the pl/sql. If f, we return a string that represents the pl/sql we are about to execute.
-supertype (optional, defaults to "group")
Parameters:
pretty_name (required)
pretty_plural (required)
Returns:
the group_type of the object created
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
12/2000

Testcases:
acs_subsite_group_type
[ show source ]