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.3 -r1.4
--- openacs-4/packages/invoices/www/offer-accept-2.tcl 8 Sep 2005 18:30:50 -0000 1.3
+++ openacs-4/packages/invoices/www/offer-accept-2.tcl 11 Oct 2005 15:23:29 -0000 1.4
@@ -20,24 +20,22 @@
set project_id [lindex [application_data_link::get_linked -from_object_id $offer_id -to_object_type content_item] 0]
db_1row project_data {}
+set locale [lang::user::site_wide_locale -user_id $contact_id]
set context [list [list [export_vars -base offer-list {organization_id}] "[_ invoices.iv_offer_2]"] [list [export_vars -base offer-ae {offer_id}] "[_ invoices.iv_offer_View]"] $page_title]
-# set offer_text [iv::offer::text -offer_id $offer_id]
+set subject [lang::util::localize "#invoices.iv_offer_accepted_email_subject#" $locale]
+set template "OfferAcceptedTemplate"
+set offer_text [iv::offer::parse_data -offer_id $offer_id -recipient_id $contact_id -template $template -locale $locale]
-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 this offer" $offer_id $pdf_file $file_size application/pdf "Offer $offer_id"]
+ set file_ids [cr_import_content -title "Accepted_Offer_${offer_id}.pdf" -description "PDF version of this offer" $offer_id $pdf_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
}
}
-set offer_text "{[_ invoices.iv_offer_accepted_email]}"
-
-
set parties_new [list]
foreach party_id $party_ids {