Index: openacs-4/packages/contacts/www/bulk-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/bulk-update.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/www/bulk-update.tcl 26 Apr 2018 08:56:38 -0000 1.8
+++ openacs-4/packages/contacts/www/bulk-update.tcl 9 May 2018 15:33:30 -0000 1.9
@@ -22,7 +22,7 @@
set user_id [ad_conn user_id]
set context [list $title]
set package_id [ad_conn package_id]
-set recipients {}
+set recipients [list]
if { [exists_and_not_null party_id] } {
foreach party_id $party_id {
contact::require_visiblity -party_id $party_id
@@ -37,13 +37,13 @@
set person_count [llength $person_ids]
-set people {}
+set people [list]
foreach party_id $person_ids {
lappend people "[person::name -person_id $party_id]"
}
set people [join $people ", "]
-set organizations {}
+set organizations [list]
foreach party_id $organization_ids {
lappend organizations "[organizations::name -organization_id $party_id]"
}