• 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.12.2.5 2024/08/09 17:32:33 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

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_subsite_group_type acs_subsite_group_type (test acs-subsite) group_type::delete group_type::delete test_acs_subsite_group_type->group_type::delete ad_conn ad_conn (public) group_type::delete->ad_conn db_0or1row db_0or1row (public) group_type::delete->db_0or1row db_dml db_dml (public) group_type::delete->db_dml db_exec_plsql db_exec_plsql (public) group_type::delete->db_exec_plsql db_list db_list (public) group_type::delete->db_list packages/acs-subsite/www/admin/group-types/delete-2.tcl packages/acs-subsite/ www/admin/group-types/delete-2.tcl packages/acs-subsite/www/admin/group-types/delete-2.tcl->group_type::delete

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

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-subsite/www/admin/group-types/delete-2.tcl packages/acs-subsite/ www/admin/group-types/delete-2.tcl group_type::drop_all_groups_p group_type::drop_all_groups_p packages/acs-subsite/www/admin/group-types/delete-2.tcl->group_type::drop_all_groups_p packages/acs-subsite/www/admin/group-types/delete.tcl packages/acs-subsite/ www/admin/group-types/delete.tcl packages/acs-subsite/www/admin/group-types/delete.tcl->group_type::drop_all_groups_p ad_conn ad_conn (public) group_type::drop_all_groups_p->ad_conn db_string db_string (public) group_type::drop_all_groups_p->db_string

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

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_subsite_group_type acs_subsite_group_type (test acs-subsite) group_type::new group_type::new test_acs_subsite_group_type->group_type::new db_1row db_1row (public) group_type::new->db_1row db_dml db_dml (public) group_type::new->db_dml db_exec_plsql db_exec_plsql (public) group_type::new->db_exec_plsql db_map db_map (public) group_type::new->db_map db_nextval db_nextval (public) group_type::new->db_nextval packages/acs-subsite/www/admin/group-types/new.tcl packages/acs-subsite/ www/admin/group-types/new.tcl packages/acs-subsite/www/admin/group-types/new.tcl->group_type::new

Testcases:
acs_subsite_group_type
[ show source ]