Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v diff -u -r1.23 -r1.24 --- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 20 Jan 2008 16:19:52 -0000 1.23 +++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl 17 Dec 2008 19:35:27 -0000 1.24 @@ -136,7 +136,11 @@ (revision_id, object_type, creation_user, creation_date, creation_ip, title, description, item_id, object_package_id, mime_type $attribute_names) values (:revision_id, :content_type, :creation_user, :creation_date, :creation_ip, :title, :description, :item_id, :package_id, :mime_type $attribute_values)" db_transaction { - db_dml lock_objects "LOCK TABLE acs_objects IN SHARE ROW EXCLUSIVE MODE" + # An explict lock was necessary for PostgreSQL between 8.0 and + # 8.2; left the following statement here for documentary purposes + # + # db_dml lock_objects "LOCK TABLE acs_objects IN SHARE ROW EXCLUSIVE MODE" + if {$revision_id eq ""} { set revision_id [db_nextval "acs_object_id_seq"] }