Index: openacs-4/packages/invoices/www/offer-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-ae.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/invoices/www/offer-ae.tcl	27 Dec 2005 16:39:35 -0000	1.15
+++ openacs-4/packages/invoices/www/offer-ae.tcl	31 Dec 2005 07:36:24 -0000	1.16
@@ -736,14 +736,15 @@
 	set n_bytes [file size $tmp_filename]
 
 	if { $n_bytes > 0 } {
-	    cr_import_content -title $filename $offer_id $tmp_filename $n_bytes $file_mimetype $filename
+	    set file_rev_id [cr_import_content -title $filename $offer_id $tmp_filename $n_bytes $file_mimetype $filename]
+	    content::item::set_live_revision -revision_id $file_rev_id
 	}
     }
 
     # delete files
     if {[info exists delete_files]} {
 	foreach file_id $delete_files {
-	    db_exec_plsql delete_file {}
+	    content::item::delete -item_id $file_id
 
 	    set path "[cr_fs_path][cr_create_content_file_path $file_id ""]"
 	    foreach revision [glob -directory $path "*"] {