Index: openacs-4/packages/contacts/www/admin/full-organizations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/full-organizations.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/admin/full-organizations.tcl	27 Apr 2006 06:45:00 -0000	1.1
+++ openacs-4/packages/contacts/www/admin/full-organizations.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -9,7 +9,7 @@
 } {
 }
 
-set party_ids [list]
+set party_ids {}
 db_multirow organizations get_organizations "
     select party_id,
            name,
@@ -49,7 +49,7 @@
 
 
 set output {"Organization ID","Name","Email","URL"}
-set extended_columns [list]
+set extended_columns {}
 template::multirow foreach ext {
     if { ( $type eq "organization" || $type eq "party" ) && [lsearch $preset_columns $key] >= 0 } {
 	# we aren't adding the columns that are provided by the parties and organizations tables
@@ -88,7 +88,7 @@
 
 # we create a command here because it more efficient then
 # iterating over all the columns in the multirow foreach
-set command [list]
+set command {}
 foreach column [template::multirow columns organizations] {
     lappend command "\[template::list::csv_quote \$${column}\]"
 }