Index: openacs-4/packages/invoices/www/offer-send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-send.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/invoices/www/offer-send.tcl 27 Dec 2005 17:31:27 -0000 1.13
+++ openacs-4/packages/invoices/www/offer-send.tcl 27 Dec 2005 18:28:16 -0000 1.14
@@ -52,10 +52,10 @@
set document_file [lindex $documents 1]
if {![empty_string_p $document_file]} {
set file_size [file size $document_file]
- # set file_ids [contact::oo::import_oo_pdf -oo_file $document_file -printer_name "pdfconv" -title $file_title -parent_id $offer_id]
+ set file_ids [contact::oo::import_oo_pdf -oo_file $document_file -printer_name "pdfconv" -title $file_title -parent_id $offer_id]
- set file_ids [cr_import_content -title $file_title -description "PDF version of this offer" $offer_id $document_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
- content::item::set_live_revision -revision_id $file_ids
+ # set file_ids [cr_import_content -title $file_title -description "PDF version of this offer" $offer_id $document_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
+ # content::item::set_live_revision -revision_id $file_ids
db_dml set_publish_status {}
}