index.tcl
Shows the user all groups on which s/he has permission
- Location:
- /packages/acs-subsite/www/admin/groups/index.tcl
- Author:
- mbryzek@arsdigita.com
- Created:
- Thu Dec 7 18:09:49 2000
- CVS ID:
$Id: index.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $
Related Files
- packages/acs-subsite/www/admin/groups/index.xql
- packages/acs-subsite/www/admin/groups/index.tcl
- packages/acs-subsite/www/admin/groups/index.adp
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Shows the user all groups on which s/he has permission @author mbryzek@arsdigita.com @creation-date Thu Dec 7 18:09:49 2000 @cvs-id $Id: index.tcl,v 1.6.2.1 2019/05/16 09:54:29 gustafn Exp $ } { {view_by "group_type"} } -validate { view_by_valid_p { if { $view_by ni {group_type rel_type}} { ad_complain "view_by is invalid." } } } -properties { context:onevalue groups:multirow subsite_group_id:onevalue view_by:onevalue } set context [list [_ acs-subsite.Groups]] set doc(title) [_ acs-subsite.Group_administration] set this_url [ad_conn url] set package_id [ad_conn package_id] db_1row subsite_info { select ag.group_id as subsite_group_id, ap.instance_name from application_groups ag, apm_packages ap where ag.package_id = ap.package_id and ag.package_id = :package_id } set intro_text [_ acs-subsite.Currently_the_instance_name_has_the_following_groups] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: