Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/search/www/search.tcl	26 Feb 2004 15:29:22 -0000	1.10
+++ openacs-4/packages/search/www/search.tcl	30 Dec 2004 11:14:25 -0000	1.10.2.1
@@ -95,8 +95,9 @@
     set title_summary [acs_sc_call FtsEngineDriver summary [list $q $datasource(title)] $driver]
     set txt_summary [acs_sc_call FtsEngineDriver summary [list $q $txt] $driver]
     set url_one [acs_sc_call FtsContentProvider url [list $object_id] $object_type]
-    
-    template::multirow append searchresult $title_summary $txt_summary $url_one
+    if {[permission::permission_p -object_id $object_id -privilege read]} {
+	template::multirow append searchresult $title_summary $txt_summary $url_one
+    }
 
 }