Index: openacs-4/packages/forums/tcl/forums-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/forums/tcl/forums-callback-procs.tcl	15 May 2007 20:14:40 -0000	1.6
+++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl	3 Apr 2008 22:18:50 -0000	1.6.2.1
@@ -190,6 +190,37 @@
     return "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
 }
 
+ad_proc -public -callback search::datasource -impl forums_forum {} {
+
+    returns a datasource for the search package
+    this is the content that will be indexed by the full text
+    search engine.
+
+    @author Jeff Davis davis@xarg.net
+    @creation_date 2004-04-01
+} {
+
+    set forum_id $object_id
+
+    if {![db_0or1row datasource {} -column_array datasource]} {
+        return {object_id {} name {} charter {} mime {} storage_type {}}
+    }
+
+    return [array get datasource]
+}
+
+ad_proc -public -callback search::url -impl forums_forum {} {
+
+    returns a url for a forum to the search package
+
+    @author Jeff Davis davis@xarg.net
+    @creation_date 2004-04-01
+
+} {
+    set forum_id $object_id
+    return "[ad_url][db_string select_forums_package_url {}]forum-view?forum_id=$forum_id"
+}
+
 ad_proc -callback application-track::getApplicationName -impl forums {} { 
         callback implementation 
     } {
Index: openacs-4/packages/forums/tcl/forums-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.xql,v
diff -u -N -r1.2 -r1.2.4.1
--- openacs-4/packages/forums/tcl/forums-callback-procs.xql	8 Aug 2006 21:26:52 -0000	1.2
+++ openacs-4/packages/forums/tcl/forums-callback-procs.xql	3 Apr 2008 22:18:50 -0000	1.2.4.1
@@ -33,4 +33,18 @@
         </querytext>
     </fullquery>
  
+  <fullquery name="callback::search::datasource::impl::forums_forum.datasource">
+    <querytext>
+      select
+        forum_id as object_id,
+        name as title,
+        charter as content,
+        'text/plain' as mime,
+        'text' as storage_type,
+        '' as keywords
+      from forums_forums
+      where forum_id = :forum_id
+    </querytext>
+  </fullquery>
+
 </queryset>
Index: openacs-4/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-sc-procs.tcl,v
diff -u -N -r1.9 -r1.9.4.1
--- openacs-4/packages/forums/tcl/forums-sc-procs.tcl	17 Nov 2006 20:31:53 -0000	1.9
+++ openacs-4/packages/forums/tcl/forums-sc-procs.tcl	3 Apr 2008 22:18:50 -0000	1.9.4.1
@@ -1,6 +1,10 @@
 ad_library {
 
     Forums Library - Search Service Contracts
+    
+    This library is DEPRECATED and NOT USED. search is implemented using 
+    callbacks now. See forums-callback-procs.tcl
+    This library will be definitely removed in 5.5
 
     @creation-date 2002-08-07
     @author Dave Bauer <dave@thedesignexperience.org>