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 +}