Index: openacs-4/packages/contacts-lite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts-lite/www/index.tcl	22 Jan 2021 22:53:06 -0000	1.4
+++ openacs-4/packages/contacts-lite/www/index.tcl	22 Jan 2021 22:54:31 -0000	1.5
@@ -70,23 +70,7 @@
 
 set max_dspl [parameter::get -parameter MaxContactsShow -default 10]
 set count 0
-db_multirow contacts contacts_select "
-    select contact_id,
-           family_name,
-           given_name,
-           middle_name,
-	   company_name,
-           'f' as write_p,
-           'f' as delete_p,
-           p.first_names || ' ' || p.last_name as owner,
-           g.category_name as category
-    from contacts c, acs_objects o, persons p, contact_categories g
-    where c.contact_id = o.object_id
-    and o.creation_user = p.person_id(+)
-    and c.category_id = g.category_id(+)
-    ${search_clause}
-    ${starts_with_clause}
-    order by $ordering" {
+db_multirow contacts contacts_select {} {
 	incr count
 	if { $count < $start } continue
 	if { $count >= ($start + $max_dspl) } break