Index: openacs-4/packages/news/news.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/news.info,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/news/news.info 13 Jan 2005 13:58:26 -0000 1.14
+++ openacs-4/packages/news/news.info 3 Feb 2005 00:15:27 -0000 1.15
@@ -20,7 +20,9 @@
-
+
+
+
Index: openacs-4/packages/news/sql/postgresql/news-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/sql/postgresql/news-create.sql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/news/sql/postgresql/news-create.sql 12 Mar 2004 19:19:48 -0000 1.16
+++ openacs-4/packages/news/sql/postgresql/news-create.sql 3 Feb 2005 00:15:27 -0000 1.17
@@ -921,4 +921,5 @@
-- *** Search contract registration ***
--
-\i news-sc-create.sql
+-- JCD: bind in tcl instead.
+-- \i news-sc-create.sql
Index: openacs-4/packages/news/sql/postgresql/news-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/sql/postgresql/news-drop.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/news/sql/postgresql/news-drop.sql 13 Jan 2005 13:58:26 -0000 1.7
+++ openacs-4/packages/news/sql/postgresql/news-drop.sql 3 Feb 2005 00:15:27 -0000 1.8
@@ -141,4 +141,7 @@
-- *** Search contract de-registration ***
--
-\i news-sc-drop.sql
+select acs_sc_impl__delete(
+ 'FtsContentProvider', -- impl_contract_name
+ 'news' -- impl_name
+);
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/news/sql/postgresql/news-sc-create.sql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/news/sql/postgresql/news-sc-drop.sql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/news/tcl/news-procs.tcl 13 Jan 2005 13:58:27 -0000 1.14
+++ openacs-4/packages/news/tcl/news-procs.tcl 3 Feb 2005 00:15:27 -0000 1.15
@@ -167,3 +167,27 @@
# Message lookup may use vars n_days_until_archive and n_days_until_publis
return [_ $news_status_keys($status)]
}
+
+
+# register news search implementation
+namespace eval news::sc {}
+
+ad_proc -private news::sc::unregister_news_fts_impl {} {
+ db_transaction {
+ acs_sc::impl::delete -contract_name FtsContentProvider -impl_name news
+ }
+}
+
+ad_proc -private news::sc::register_news_fts_impl {} {
+ set spec {
+ name "news"
+ aliases {
+ datasource news__datasource
+ url news__url
+ }
+ contract_name FtsContentProvider
+ owner news
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}