Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql,v
diff -u -N -r1.35.2.4 -r1.35.2.5
--- openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql	2 Mar 2003 22:33:33 -0000	1.35.2.4
+++ openacs-4/packages/acs-kernel/sql/postgresql/acs-objects-create.sql	23 Jun 2003 18:47:02 -0000	1.35.2.5
@@ -1340,21 +1340,25 @@
   
 end;' language 'plpgsql';
 
-create function acs_object__update_last_modified (integer)
+create function acs_object__update_last_modified (integer, integer, integer)
 returns integer as '
 declare
-    acs_object__update_last_modified__object_id     alias for $1;
+    acs_object__update_last_modified__object_id          alias for $1;
+    acs_object__update_last_modified__modifying_user     alias for $2;
+    acs_object__update_last_modified__modifying_ip       alias for $3;
 begin
-    return acs_object__update_last_modified(acs_object__update_last_modified__object_id, now());
+    return acs_object__update_last_modified(acs_object__update_last_modified__object_id, acs_object__update_last_modified__modifying_user, acs_object__update_last_modified__modifying_ip, now());
 end;' language 'plpgsql';
 
-create function acs_object__update_last_modified (integer, timestamptz)
+create function acs_object__update_last_modified (integer, integer, integer, timestamptz)
 returns integer as '
 declare
-    acs_object__update_last_modified__object_id     alias for $1; 
-    acs_object__update_last_modified__last_modified alias for $2; -- default now()
-    v_parent_id                                     integer;
-    v_last_modified                                 timestamptz;
+    acs_object__update_last_modified__object_id          alias for $1; 
+    acs_object__update_last_modified__modifying_user     alias for $2;
+    acs_object__update_last_modified__modifying_ip       alias for $3;
+    acs_object__update_last_modified__last_modified      alias for $4; -- default now()
+    v_parent_id                                          integer;
+    v_last_modified                                      timestamptz;
 begin
     if acs_object__update_last_modified__last_modified is null then
         v_last_modified := now();
@@ -1363,7 +1367,9 @@
     end if;
 
     update acs_objects
-    set last_modified = v_last_modified
+    set last_modified = v_last_modified,
+        modifying_user = acs_object__update_last_modified__modifying_user,
+        modifying_ip = acs_object__update_last_modified__modifying_ip
     where object_id = acs_object__update_last_modified__object_id;
 
     select context_id
@@ -1372,7 +1378,7 @@
     where object_id = acs_object__update_last_modified__object_id;
 
     if v_parent_id is not null and v_parent_id != 0 then
-        perform acs_object__update_last_modified(v_parent_id, v_last_modified);
+        perform acs_object__update_last_modified(v_parent_id, acs_object__update_last_modified__modifying_user, acs_object__update_last_modified__modifying_ip, v_last_modified);
     end if;
 
     return acs_object__update_last_modified__object_id;