Index: openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql	4 Apr 2001 23:56:49 -0000	1.9
+++ openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql	7 Apr 2001 15:54:55 -0000	1.10
@@ -49,12 +49,12 @@
 
   insert into cr_revisions (
     revision_id, title, description, mime_type, publish_date,
-    nls_language, lob, item_id, storage_type
+    nls_language, lob, item_id, storage_type, content_length
   ) values (
     v_revision_id, coalesce(new__title,''''), coalesce(new__description,''''),
     new__mime_type, 
     new__publish_date, coalesce(new__nls_language,''''), new__data, 
-    new__item_id, ''lob''     
+    new__item_id, ''lob'', 1     
   );
 
   return v_revision_id;
@@ -444,7 +444,7 @@
   blob_loc                        integer;          
 begin
 
-  -- what is this? FIXME
+  -- FIXME
   -- ctx_doc.filter(''cr_doc_filter_index'', revision_id, tmp_clob);
 
   select 
@@ -581,10 +581,11 @@
                lob = v_new_lob
          where revision_id = v_revision_id_dest;
     else 
+        -- FIXME: need to modify for file storage type.
         update cr_revisions
            set content = v_content,
                content_length = v_content_length,
-               storage_type = ''text'',
+               storage_type = v_storage_type,
                lob = null
          where revision_id = v_revision_id_dest;
     end if;
@@ -595,7 +596,7 @@
 end;' language 'plpgsql';
 
 
--- procedure content_copy
+-- procedure content__get_content
 create function content_revision__get_content (integer)
 returns text as '
 declare