Index: openacs-4/packages/logger/catalog/logger.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/catalog/logger.en_US.ISO-8859-1.xml,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/logger/catalog/logger.en_US.ISO-8859-1.xml	24 Jan 2006 16:55:15 -0000	1.11
+++ openacs-4/packages/logger/catalog/logger.en_US.ISO-8859-1.xml	15 Nov 2006 18:57:07 -0000	1.12
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="logger" package_version="1.1b4" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="logger" package_version="2.3d1" locale="en_US" charset="ISO-8859-1">
 
   <msg key="A">A</msg>
   <msg key="Add_Entry">Add Entry</msg>
Index: openacs-4/packages/logger/sql/postgresql/logger-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/sql/postgresql/logger-packages-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/logger/sql/postgresql/logger-packages-create.sql	11 Dec 2003 21:40:07 -0000	1.6
+++ openacs-4/packages/logger/sql/postgresql/logger-packages-create.sql	15 Nov 2006 18:57:07 -0000	1.7
@@ -31,15 +31,15 @@
 
     v_project_id          integer;
 begin
-       v_project_id := acs_object__new(
+       select acs_object__new(
            p_project_id,             -- object_id
            ''logger_project'',           -- object_type
            current_timestamp,      -- creation_date
            p_creation_user,        -- creation_user
            p_creation_ip,          -- creation_ip
            p_package_id,           -- context_id
            ''t''                   -- security_inherit_p
-       ); 
+       ) into v_project_id;
        
        insert into logger_projects (project_id, name, description, project_lead)
            values (v_project_id, p_name, p_description, p_project_lead);
Index: openacs-4/packages/logger/tcl/entry-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/logger/tcl/entry-procs-postgresql.xql	3 Jun 2004 21:08:24 -0000	1.2
+++ openacs-4/packages/logger/tcl/entry-procs-postgresql.xql	15 Nov 2006 18:57:08 -0000	1.3
@@ -5,7 +5,9 @@
 
   <fullquery name="logger::entry::new.insert_entry">
     <querytext>
-        select logger_entry__new (
+		Begin	
+		LOCK TABLE acs_objects IN SHARE ROW EXCLUSIVE MODE;
+        perform logger_entry__new (
                   :entry_id,
                   :project_id,
                   :variable_id,
@@ -15,6 +17,8 @@
                   :creation_user,
                   :creation_ip
               );
+	return 0;
+	end;
     </querytext>
   </fullquery>
 
Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/logger/tcl/entry-procs.tcl	9 Oct 2006 20:27:24 -0000	1.11
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	15 Nov 2006 18:57:08 -0000	1.12
@@ -56,8 +56,12 @@
         set creation_user $party_id
     }
     
-    set entry_id [db_exec_plsql insert_entry {}]
+    if {$entry_id eq ""} {
+	set entry_id [db_nextval "acs_object_id_seq"]
+    }
 
+    db_exec_plsql insert_entry {}
+
     # The creator can admin his own entry
     permission::grant -party_id $creation_user -object_id $entry_id -privilege admin