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.2 -r1.3
--- openacs-4/packages/invoices/www/invoice-send.tcl 8 Sep 2005 18:30:50 -0000 1.2
+++ openacs-4/packages/invoices/www/invoice-send.tcl 28 Sep 2005 17:19:12 -0000 1.3
@@ -24,7 +24,7 @@
set pdf_file [text_templates::create_pdf_from_html -html_content "$invoice_text"]
if {![empty_string_p $pdf_file]} {
set file_size [file size $pdf_file]
- set file_ids [cr_import_content -title "Invoice $invoice_id" -description "PDF version of this offer" $invoice_id $pdf_file $file_size application/pdf "Invoice $invoice_id"]
+ set file_ids [cr_import_content -title "Invoice $invoice_id" -description "PDF version of this offer" $invoice_id $pdf_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
}
}