elements-by-rel-type.tcl

Datasource for elements-by-rel-type.adp (meant to be included by other templates) Shows the user a summary of elements (components or members) of the given group, provided that the user has permission to see the element. The elements are summarized by their relationship to the given group. NOTE: There is no scope check done here to ensure that the element "belongs" to the subsite. The pages that use this template already check that the given group_id is in scope; therefore, all of its elements must be in scope. And even if a developer screws up and uses this template without checking that the give group_id belongs to the current subsite, the user would only be able to see elements that they have permission to see. Thus we take the lazy (and efficient) approach of not checking the scope of the elements returned by this datasource.

Location:
/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl
Author:

oumi@arsdigita.com

Created:

2001-2-6

CVS ID:

$Id: elements-by-rel-type.tcl,v 1.12.2.2 2022/11/20 03:26:12 raulr Exp $

File Contents

ad_include_contract {

    Datasource for elements-by-rel-type.adp
    (meant to be included by other templates)

    Shows the user a summary of elements (components or members) of the
    given group, provided that the user has permission to see the
    element.  The elements are summarized by their relationship to the
    given group.

    NOTE:
    There is no scope check done here to ensure that the element "belongs" to
    the subsite.  The pages that use this template already check that the
    given group_id is in scope; therefore, all of its elements must be in
    scope.  And even if a developer screws up and uses this template without
    checking that the give group_id belongs to the current subsite, the user
    would only be able to see elements that they have permission to see.
    Thus we take the lazy (and efficient) approach of not checking the
    scope of the elements returned by this datasource.

    @author oumi@arsdigita.com
    @creation-date 2001-2-6
    @cvs-id $Id: elements-by-rel-type.tcl,v 1.12.2.2 2022/11/20 03:26:12 raulr Exp $

} {
    group_id:integer
}

set user_id [ad_conn user_id]
set admin_p [permission::permission_p -object_id $group_id -privilege "admin"]
set create_p [permission::permission_p -object_id $group_id -privilege "create"]

set return_url "[ad_conn url]?[ad_conn query]"
set return_url_enc [ad_urlencode $return_url]

db_multirow -extend {
    elements_display_url
    relations_add_url
    create_rel_segment_url
} rels relations_query {
    select
        g.group_id,
        g.rel_type,
        null as rel_type_valid_p,
        gr.group_rel_id,
        (select pretty_name from acs_object_types
          where object_type = g.rel_type) as rel_type_pretty_name,
        s.segment_id,
        s.segment_name,
        rr.pretty_plural as role_pretty_plural,
        rr.pretty_name as role_pretty_name,
        rels.num_rels
    from rc_valid_rel_types g
         left outer join rel_segments s on (s.group_id = g.group_id and s.rel_type = g.rel_type)
         left outer join group_rels gr on (gr.group_id = g.group_id and gr.rel_type = g.rel_type)
         left outer join
           (select rel_type, count(*) as num_rels
              from group_component_map
             where group_id = :group_id
               and group_id = container_id
             group by rel_type
              UNION ALL
            select rel_type, count(*) as num_rels
              from group_approved_member_map
             where group_id = :group_id
               and group_id = container_id
            group by rel_type
         ) rels on (rels.rel_type = g.rel_type),
         acs_rel_types rel_types,
         acs_rel_roles rr
     where g.rel_type = rel_types.rel_type
       and rr.role = rel_types.role_two
       and g.group_id = :group_id
  order by lower(g.rel_type)
} {
    # The role pretty names can be message catalog keys that need
    # to be localized before they are displayed
    set role_pretty_name [lang::util::localize $role_pretty_name]
    set role_pretty_plural [lang::util::localize $role_pretty_plural]

    set create_rel_segment_url [export_vars -base "../rel-segments/new" {group_id rel_type return_url}]
    set elements_display_url [export_vars -base "elements-display" {group_id rel_type}]
    set relations_add_url [export_vars -base "../relations/add" {group_id rel_type return_url}]

}

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

elements-by-rel-type.tcl

Related Files

File Contents