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.36 -r1.37
--- openacs-4/packages/search/tcl/search-procs.tcl	21 Aug 2006 22:25:05 -0000	1.36
+++ openacs-4/packages/search/tcl/search-procs.tcl	20 Oct 2006 21:04:49 -0000	1.37
@@ -142,7 +142,7 @@
 				if {![info exists datasource(package_id)]} {
 				    set datasource(package_id) ""
 				}
-				set datasource(community_id) [search::dotlrn::get_community_id -package_id $datasource(package_id)]
+#				set datasource(community_id) [search::dotlrn::get_community_id -package_id $datasource(package_id)]
 				
 				if {![info exists datasource(relevant_date)]} {
 				    set datasource(relevant_date) ""
Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/search/www/search.tcl	4 Jun 2006 00:45:56 -0000	1.20
+++ openacs-4/packages/search/www/search.tcl	20 Oct 2006 21:04:49 -0000	1.21
@@ -33,14 +33,14 @@
     array set info [acs_sc_call FtsEngineDriver info [list] $driver]
 }
 
-set dotlrn_package_id [dotlrn::get_package_id]
-set is_guest_p [search::is_guest_p]
+#set dotlrn_package_id [dotlrn::get_package_id]
+#set is_guest_p [search::is_guest_p]
 
 # Ugly .LRNism: guests must not search for people. Here's the security
 # check that makes sure they cannot fiddle around with the URL
-if {$is_guest_p && [string equal $object_type "phb_person"]} {
-    ad_return_error "Security Breakin!" "Security Alert. This incident has been logged."
-}
+#if {$is_guest_p && [string equal $object_type "phb_person"]} {
+#    ad_return_error "Security Breakin!" "Security Alert. This incident has been logged."
+#}
 if { [array get info] == "" } {
     ReturnHeaders
     ns_write "[_ search.lt_FtsEngineDriver_not_a]"