Index: openacs-4/packages/invoices/www/invoice-send.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-send.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/invoices/www/invoice-send.tcl 27 Dec 2005 16:39:35 -0000 1.9 +++ openacs-4/packages/invoices/www/invoice-send.tcl 27 Dec 2005 18:28:16 -0000 1.10 @@ -96,10 +96,10 @@ if {![empty_string_p $document_file]} { set file_size [file size $document_file] - # set file_id [contact::oo::import_oo_pdf -oo_file $document_file -printer_name "pdfconv" -title $file_title -parent_id $invoice_id] + set file_id [contact::oo::import_oo_pdf -oo_file $document_file -printer_name "pdfconv" -title $file_title -parent_id $invoice_id] - set file_id [cr_import_content -title $file_title -description "PDF version of this invoice" $invoice_id $document_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"] - content::item::set_live_revision -revision_id $file_id + # set file_id [cr_import_content -title $file_title -description "PDF version of this invoice" $invoice_id $document_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"] + # content::item::set_live_revision -revision_id $file_id lappend file_ids $file_id db_dml set_publish_status {}