Fisheye: Tag 1.1.32.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3.32.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.10.2.2 -r1.10.2.3
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	17 Dec 2019 12:00:23 -0000	1.10.2.2
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	13 Feb 2022 16:46:47 -0000	1.10.2.3
@@ -63,26 +63,7 @@
     # a list as each callback may itself require a database
     # handle. Note that we need the distinct in case two callbacks are
     # registered for an object and its parent object type.
-    db_foreach get_callbacks {
-        with recursive object_hierarchy as (
-            select object_type, supertype
-              from acs_object_types
-             where object_type = coalesce(:object_type, (select object_type
-                                                         from acs_objects
-                                                         where object_id = :object_id))
-
-            union all
-
-            select t.object_type, t.supertype
-            from acs_object_types t,
-                 object_hierarchy s
-            where t.object_type = s.supertype
-        )
-        select distinct callback, callback_type as type
-          from subsite_callbacks
-        where event_type = :event_type
-          and object_type in (select object_type from object_hierarchy)
-    } {
+    db_foreach get_callbacks {} {
         switch -- $type {
             tcl {
                 # Execute the Tcl procedure