Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/search/tcl/search-procs.tcl	10 Jan 2007 21:22:14 -0000	1.39
+++ openacs-4/packages/search/tcl/search-procs.tcl	14 May 2007 20:30:29 -0000	1.40
@@ -67,7 +67,8 @@
     Checks whether the logged-in user is a guest
 } {
     set user_id [ad_conn user_id]
-    return [db_string get_is_guest_p {select dotlrn_privacy.guest_p(:user_id) from dual}]
+#    return [db_string get_is_guest_p {select dotlrn_privacy.guest_p(:user_id) from dual}]
+    return 0
 }
 
 ad_proc -public -callback search::action {