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 {}
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 {}
}