Index: openacs-4/packages/invoices/www/offer-accept-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-accept-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/offer-accept-2.tcl	6 Sep 2005 23:01:24 -0000	1.2
+++ openacs-4/packages/invoices/www/offer-accept-2.tcl	8 Sep 2005 18:30:50 -0000	1.3
@@ -27,6 +27,14 @@
 
 set offer_text [iv::offer::parse_data -offer_id $offer_id -recipient_id [lindex $party_ids 0]]
 
+if {[empty_string_p $file_ids]} {
+    set pdf_file [text_templates::create_pdf_from_html -html_content "$offer_text"]
+    if {![empty_string_p $pdf_file]} {
+	set file_size [file size $pdf_file]
+	set file_ids [cr_import_content -title "Offer $offer_id" -description "PDF version of <a href=[export_vars -base "/invoices/offer-ae" -url {{mode display} organization_id}]>this offer</a>" $offer_id $pdf_file $file_size application/pdf "Offer $offer_id"]
+    }
+}
+
 set offer_text "{[_ invoices.iv_offer_accepted_email]}"