Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v diff -u -r1.21 -r1.21.2.1 --- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 28 Apr 2005 22:38:06 -0000 1.21 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 1 Jul 2005 15:15:22 -0000 1.21.2.1 @@ -190,11 +190,9 @@ set item_id [db_nextval acs_object_id_seq] } - # use content_type of existing item + # use content_type of existing item if $old_item_p { set content_type [db_string get_content_type ""] - } else { - set content_type [cr_registered_type_for_mime_type $mime_type] } set revision_id [db_nextval acs_object_id_seq]