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]"