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.2 -r1.3
--- openacs-4/packages/contacts/www/admin/index.tcl 13 Jan 2005 13:57:13 -0000 1.2
+++ openacs-4/packages/contacts/www/admin/index.tcl 18 May 2005 16:45:50 -0000 1.3
@@ -6,19 +6,111 @@
} {
- {orderby "name"}
}
+
+set orderby "name"
set title "Contact Administration"
set context {}
set package_id [ad_conn package_id]
+template::list::create \
+ -name "groups" \
+ -multirow "groups" \
+ -row_pretty_plural "groups" \
+ -elements {
+ edit {
+ label {}
+ display_template {
+
+ }
+ }
+ group_name {
+ label {Group}
+ display_col group_name
+ }
+ member_count {
+ label {\# Contacts}
+ display_col member_count
+ link_url_eval $group_url
+ }
+ mapped {
+ label {Mapped}
+ display_template {
+
+
+
+
+
+
+ }
+ }
+ default {
+ label {Default}
+ display_template {
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+ person_form {
+ display_template {
+ Person Form
+ }
+ }
+ org_form {
+ display_template {
+ Organization Form
+ }
+ }
+ actions {
+ display_template {
+ Permissions
+ }
+ }
+ } -filters {
+ } -orderby {
+ }
+#ad_return_error "ERROR" [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin"]
+multirow create groups group_id group_name group_url ams_person_url ams_org_url member_count level mapped_p default_p
-set organization_object_id [contacts::util::organization_object_id]
-set person_object_id [contacts::util::person_object_id]
+foreach group [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin" -all] {
+ 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 ams_person_url [ams::list::url \
+ -package_key "contacts" \
+ -object_type "person" \
+ -list_name "${package_id}__${group_id}" \
+ -pretty_name "${package_id}__${group_id}" \
+ -return_url [ad_conn url] \
+ -return_url_label "Return to \"$title\""]
+ set ams_org_url [ams::list::url \
+ -package_key "contacts" \
+ -object_type "organization" \
+ -list_name "${package_id}__${group_id}" \
+ -pretty_name "${package_id}__${group_id}" \
+ -return_url [ad_conn url] \
+ -return_url_label "Return to \"$title\""]
+ 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
+}
+
+
+
+
ad_return_template