Index: openacs-4/packages/auth-ldap/lib/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/lib/search.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/auth-ldap/lib/search.tcl	8 Sep 2008 20:29:24 -0000	1.1
+++ openacs-4/packages/auth-ldap/lib/search.tcl	26 Apr 2018 08:56:37 -0000	1.2
@@ -19,7 +19,7 @@
 set auth_search_parameters [auth::driver::get_parameter_values -authority_id $authority_id -impl_id $auth_search_impl_id]
 
 array set auth_search_parameters_arr $auth_search_parameters
-set search_attribs [list]
+set search_attribs {}
 # foreach attribute_mapping [split $auth_search_parameters_arr(InfoAttributeMap) ";"] {
 #     set attr [lindex [split $attribute_mapping "="] 1]
 #     set pretty_name [lindex [split $attribute_mapping "="] 0]
@@ -40,7 +40,7 @@
     }
 }
 
-set search_terms [list]
+set search_terms {}
 foreach attr [concat search_text $search_attribs] {
     if {[info exists $attr] && [set $attr] ne ""} {
 	lappend search_terms $attr [set $attr]
@@ -83,7 +83,7 @@
 	# does the user have a local account?
 	set local_account_p 0
 	set user_id ""
-	set status [list]
+	set status {}
 	db_0or1row user_exists_p "select user_id from cc_users where upper(username) = upper(:user) and upper(email) = upper(:email)"
 	if {$user_id eq ""} {
 	    set group_member_p 0