Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	10 Sep 2002 22:22:52 -0000	1.8
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	26 Jan 2003 03:10:34 -0000	1.8.2.1
@@ -80,8 +80,12 @@
     if {![info exists content_types]} {
 	array set content_types [list]
     }
-    
+
+    # probably should use content_type functions instead
+    # DaveB
+    # anyway we make sure new types are children of etp_page_revision
     # ensure an entry in acs_object_types
+    
     if { ![db_0or1row object_type_exists ""] } {
 	db_exec_plsql object_type_create ""
     }
@@ -111,6 +115,10 @@
     }
 
     set content_types($content_type) $attribute_metadata_with_ids
+    # add service contract implementations for content_type if necessary
+    # creates search service contract implementation if it doesn't
+    # already exist
+    etp::create_search_impl -content_type $content_type
 }    
 
 
@@ -337,7 +345,7 @@
 } {
     set extended_attributes ""
     if { ![empty_string_p $content_type] && 
-         ![string equal $content_type "content_revision"] } {
+         ![string equal $content_type "etp_page_revision"] } {
 	variable content_types
 
 	set attributes $content_types($content_type)