Index: openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	13 Mar 2002 22:50:53 -0000	1.4
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	25 May 2002 14:00:34 -0000	1.5
@@ -409,6 +409,11 @@
    object_id		in acs_objects.object_id%TYPE
  ) return char;
 
+    procedure update_last_modified (
+        object_id in acs_objects.object_id%TYPE,
+        last_modified in acs_objects.last_modified%TYPE default sysdate
+    );
+
 end acs_object;
 /
 show errors
@@ -1011,6 +1016,24 @@
    return result;
  end check_representation;
 
+    procedure update_last_modified (
+        object_id in acs_objects.object_id%TYPE,
+        last_modified in acs_objects.last_modified%TYPE default sysdate
+    )
+    is
+        v_parent_id acs_objects.context_id%TYPE;
+    begin
+        update acs_objects
+        set acs_objects.last_modified = acs_object.update_last_modified.last_modified
+        where acs_objects.object_id = acs_object.update_last_modified.object_id
+        returning acs_objects.context_id
+        into v_parent_id;
+
+        if v_parent_id is not null and v_parent_id != 0 then
+            acs_object.update_last_modified(v_parent_id, acs_object.update_last_modified.last_modified);
+        end if;
+    end update_last_modified;
+
 end acs_object;
 /
 show errors