Index: openacs-4/packages/bookshelf/tcl/bookshelf-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/tcl/bookshelf-search-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/bookshelf/tcl/bookshelf-search-procs.tcl	27 Apr 2004 12:30:26 -0000	1.1
@@ -0,0 +1,82 @@
+ad_library {
+    Bookshelf - Search Service Contracts
+
+    @creation-date 2004-04-20
+    @author Jeff Davis davis@xarg.net
+    @cvs-id $Id: bookshelf-search-procs.tcl,v 1.1 2004/04/27 12:30:26 jeffd Exp $
+}
+
+namespace eval bookshelf::book::search {}
+
+ad_proc -private bookshelf::book::search::datasource { book_id } {
+    returns a datasource for the search package this is the content 
+    that will be indexed by the full text search engine.
+
+    @param book_id
+
+    @author Jeff Davis davis@xarg.net
+} {
+
+    bookshelf::book::get -book_id $book_id -array b
+
+    set title "$b(book_title) by $b(book_author)"
+    set content "$b(book_title) by $b(book_author)
+$b(main_entry)
+$b(additional_entry)
+$b(excerpt)
+reviewed $b(creation_date_pretty)
+ISBN $b(isbn)
+"
+    return [list object_id $book_id \
+                title $title \
+                content $content \
+                keywords {} \
+                storage_type text \
+                mime text/plain ]
+}
+
+ad_proc -private bookshelf::book::search::url { book_id } {
+    returns a url for a given book_id
+
+    @param book_id
+    @author Jeff Davis davis@xarg.net
+} {
+    if {[db_0or1row get {select package_id, book_no from bookshelf_books where book_id = :book_id}]} {
+        return "[ad_url][apm_package_url_from_id $package_id]book-view?book_no=$book_no"
+    } else {
+        error "book_id $book_id not found"
+    }
+}
+
+
+
+ad_proc -private bookshelf::book::search::register_implementations {} {
+    register the search impl for bookshelf 
+} {
+    db_transaction {
+        bookshelf::book::search::register_fts_impl
+    }
+}
+
+ad_proc -private bookshelf::book::search::unregister_implementations {} {
+    db_transaction { 
+        acs_sc::impl::delete -contract_name FtsContentProvider -impl_name bookshelf_book
+    }
+}
+
+ad_proc -private bookshelf::book::search::register_fts_impl {} {
+    set spec {
+        name "bookshelf_book"
+        aliases {
+            datasource bookshelf::book::search::datasource
+            url bookshelf::book::search::url
+        }
+        contract_name FtsContentProvider
+        owner bookshelf
+    }
+
+    acs_sc::impl::new_from_spec -spec $spec
+}
+
+
+