Index: openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	1 Apr 2004 21:00:49 -0000	1.1
+++ openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	16 Aug 2006 17:52:14 -0000	1.2
@@ -36,7 +36,7 @@
                 content $content \
                 keywords {} \
                 storage_type text \
-                mime_type text/plain ]
+                mime text/plain ]
 }
 
 ad_proc -private calendar::fts::url { cal_item_id } {
@@ -56,12 +56,14 @@
 } {
     db_transaction {
         calendar::sc::register_cal_item_fts_impl
+        calendar::sc::register_acs_event_fts_impl
     }
 }
 
 ad_proc -private calendar::sc::unregister_implementations {} {
     db_transaction { 
         acs_sc::impl::delete -contract_name FtsContentProvider -impl_name cal_item
+        acs_sc::impl::delete -contract_name FtsContentProvider -impl_name acs_event
     }
 }
 
@@ -78,3 +80,17 @@
 
     acs_sc::impl::new_from_spec -spec $spec
 }
+
+ad_proc -private calendar::sc::register_acs_event_fts_impl {} {
+   set spec {
+      name "acs_event"
+      aliases {
+         datasource calendar::fts::datasource
+         url calendar::fts::url
+      }
+      contract_name FtsContentProvider
+      owner calendar
+   }
+
+   acs_sc::impl::new_from_spec -spec $spec
+}