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.11 -r1.12
--- openacs-4/packages/contacts/www/admin/index.tcl 18 Dec 2005 09:34:43 -0000 1.11
+++ openacs-4/packages/contacts/www/admin/index.tcl 1 Nov 2006 09:12:15 -0000 1.12
@@ -59,6 +59,17 @@
}
}
+ user_change {
+ label {User Change}
+ display_template {
+
+
+
+
+
+
+ }
+ }
person_form {
display_template {
[_ contacts.Person_Form]
@@ -84,7 +95,7 @@
}
-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
+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
set return_url [ad_conn url]
foreach group [contact::groups -indent_with "..." -expand "all" -output "all" -privilege_required "admin" -all] {
@@ -94,6 +105,7 @@
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 ams_person_url [ams::list::url \
-package_key "contacts" \
-object_type "person" \
@@ -113,7 +125,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
+ 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
}