Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.69 -r1.70
--- openacs-4/packages/contacts/lib/contacts.tcl	8 Sep 2006 12:10:18 -0000	1.69
+++ openacs-4/packages/contacts/lib/contacts.tcl	8 Nov 2006 18:36:33 -0000	1.70
@@ -281,7 +281,7 @@
 }
 append name_label [join $page_size_list " | "]
 
-if { [string is true [parameter::get -parameter "DisableCSV" -default "0"]] } {
+if { [string is true [parameter::get -parameter "DisableCSV" -default "0"]] || ![acs_user::site_wide_admin_p] } {
     set format normal
 } else {
     append name_label "&nbsp;&nbsp;&nbsp;[_ contacts.Get]: <a href=\"[export_vars -base $base_url -url {{format csv} search_id query page orderby page_size extended_columns}]\">[_ contacts.CSV]</a>"