Index: openacs-4/packages/search/www/search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.adp,v
diff -u -r1.10.2.1 -r1.10.2.2
--- openacs-4/packages/search/www/search.adp	24 May 2007 10:30:39 -0000	1.10.2.1
+++ openacs-4/packages/search/www/search.adp	24 May 2007 13:37:46 -0000	1.10.2.2
@@ -1,5 +1,4 @@
 <master>
-<if @dotlrn_p@ true><include src="/packages/dotlrn/www/dotlrn-search"></if>
 <if @t@ eq "Search">
   <i>#search.lt_Tip_In_most_browsers_#</i><br><br>
 </if>
@@ -83,17 +82,12 @@
 </if>
 <if @count@ gt 0>
   <center>
-  <if @dotlrn_p@>
-    <include src="/packages/dotlrn/www/dotlrn-search">
-  </if>
-  <else>
-      <div>
-        <form method="get" action="search">
-          <input type="text" name="q" size="60" maxlength="256" value="@query@" />
-          <input type="submit" value="#search.Search#" />
-        </form>
-      </div>
-  </else>
+    <div>
+      <form method="get" action="search">
+        <input type="text" name="q" size="60" maxlength="256" value="@query@" />
+        <input type="submit" value="#search.Search#" />
+      </form>
+    </div>
   </center>
 
   <if @stw@ not nil>
Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.22.2.3 -r1.22.2.4
--- openacs-4/packages/search/www/search.tcl	17 Feb 2007 16:46:10 -0000	1.22.2.3
+++ openacs-4/packages/search/www/search.tcl	24 May 2007 13:37:46 -0000	1.22.2.4
@@ -27,7 +27,6 @@
 # Do we want debugging information at the end of the page
 set debug_p 0
 
-set dotlrn_p [apm_package_installed_p "dotlrn"]
 set user_id [ad_conn user_id]
 set driver [ad_parameter -package_id $package_id FtsEngineDriver]
 if {[callback::impl_exists -impl $driver -callback search::driver_info]} {
@@ -37,17 +36,6 @@
     array set info [acs_sc_call FtsEngineDriver info [list] $driver]
 }
 
-if {$dotlrn_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 { [array get info] == "" } {
     ReturnHeaders
     ns_write "[_ search.lt_FtsEngineDriver_not_a]"