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.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	6 Feb 2003 12:55:23 -0000	1.7.2.2
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	3 May 2003 23:51:16 -0000	1.7.2.3
@@ -1,24 +1,5 @@
 # upload an item revision from a file
 
-ad_proc -public cr_revision_upload { title item_id path } {
-
-    set revision_id [db_exec_plsql get_revision_id "begin
-    :1 := content_revision.new(title     => :title, 
-                               item_id   => :item_id, 
-                               v_content => null);
-     end;"]
-
-    db_dml dml_revision_from_file "update 
-                            cr_revisions 
-                          set
-                            content = empty_blob()
-                          where
-                            revision_id = :revision_id
-                          returning content into :1" -blob_files [list $path]
-
-  return $revision_id
-}
-
 ad_proc -public cr_write_content {
     -item_id
     -revision_id