Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/www/admin/index.tcl 14 Jan 2007 11:35:24 -0000 1.14
+++ openacs-4/packages/contacts/www/admin/index.tcl 21 Jun 2007 20:06:42 -0000 1.15
@@ -23,7 +23,7 @@
edit {
label {}
display_template {
-
+
}
}
group_name {
@@ -48,6 +48,7 @@
default {
label {Default}
display_template {
+
@@ -58,55 +59,70 @@
+
}
}
user_change {
label {User Change}
display_template {
+
+
}
}
person_form {
display_template {
+
[_ contacts.Person_Form]
+
}
}
org_form {
display_template {
+
[_ contacts.Organization_Form]
+
}
}
categories {
display_template {
+
[_ contacts.Manage_group_categories]
+
}
}
actions {
display_template {
+
[_ contacts.Permissions]
+
+
+ #contacts.dotLRN_Managed#
+
}
}
} -filters {
} -orderby {
}
-multirow create groups group_id group_name group_url ams_person_url ams_org_url member_count level mapped_p default_p categories_url edit_url user_change_p
+multirow create groups group_id group_name group_url ams_person_url ams_org_url member_count level mapped_p default_p categories_url edit_url user_change_p dotlrn_community_p
set return_url [ad_conn url]
-foreach group [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin" -all] {
+foreach group [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin" -all -include_dotlrn_p "1"] {
set group_id [lindex $group 1]
set group_name [lindex $group 0]
set member_count [lindex $group 2]
set level [lindex $group 3]
set mapped_p [lindex $group 4]
set default_p [lindex $group 5]
set user_change_p [lindex $group 6]
+ set dotlrn_community_p [lindex $group 7]
set ams_person_url [ams::list::url \
-package_key "contacts" \
-object_type "person" \
@@ -126,7 +142,7 @@
set edit_url [export_vars -base "/acs-lang/admin/edit-localized-message" {{package_key acs-translations} {locale "[ad_conn locale]"} {message_key "group_title_${group_id}"} {return_url [ad_return_url]}}]
set categories_url [export_vars -base "/categories/cadmin/object-map" -url {{object_id $group_id}}]
- multirow append groups [lindex $group 1] [lindex $group 0] "../?group_id=${group_id}" $ams_person_url $ams_org_url $member_count $level $mapped_p $default_p $categories_url $edit_url $user_change_p
+ multirow append groups [lindex $group 1] [lindex $group 0] "../?group_id=${group_id}" $ams_person_url $ams_org_url $member_count $level $mapped_p $default_p $categories_url $edit_url $user_change_p $dotlrn_community_p
}