Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	27 Oct 2014 16:39:46 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	7 Aug 2017 23:47:58 -0000	1.8
@@ -48,15 +48,7 @@
     # handle. Note that we need the distinct in case two callbacks are
     # registered for an object and it's parent object type.
 
-    set callback_list [db_list_of_lists select_callbacks {
-	select distinct callback, callback_type
-	  from subsite_callbacks
-	 where object_type in (select t.object_type
-	                        from acs_object_types t
-	                     connect by prior t.supertype = t.object_type
-	                       start with t.object_type = :object_type)
-	   and event_type = :event_type
-    }]
+    set callback_list [db_list_of_lists select_callbacks {}]
 
     set node_id [ad_conn node_id]
     set package_id [ad_conn package_id]
@@ -66,7 +58,7 @@
 
 	switch -- $type {
 	    tcl { 
-		# Execute the tcl procedure
+		# Execute the Tcl procedure
 		$callback -object_id $object_id -node_id $node_id -package_id $package_id
 	    }
 	    default { error "Callbacks of type $type not supported" }
@@ -112,3 +104,9 @@
 
     The type let's you define what kind of URL you are looking for (e.g. admin/edit/display)
 } -
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: