Index: openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl	27 Aug 2001 21:52:41 -0000	1.5
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs.tcl	31 Oct 2001 20:42:07 -0000	1.6
@@ -814,13 +814,11 @@
         select content_item.get_latest_revision(:file_id) as revision_id
         from dual
     }
-    
-    db_dml set_content {
-    update cr_revisions
-        set content = empty_blob()
-        where revision_id = :revision_id
-        returning content into :1
-    } -blob_files [list $local_filename]
+
+    set filename [cr_create_content_file $file_id $revision_id $local_filename]
+    set size [file size $local_filename]
+
+    db_dml set_content_size ""
 }
 
 ad_proc -public bboard_attach_file {
@@ -856,12 +854,10 @@
         from dual
     }
     
-    db_dml set_content {
-    update cr_revisions
-        set content = empty_blob()
-        where revision_id = :revision_id
-        returning content into :1
-    } -blob_files [list $local_filename]
+    set filename [cr_create_content_file $file_id $revision_id $local_filename]
+    set size [file size $local_filename]
+
+    db_dml set_content_size ""
 }