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 -N -r1.10 -r1.11
--- openacs-4/packages/invoices/www/offer-send.tcl 24 Oct 2005 13:49:59 -0000 1.10
+++ openacs-4/packages/invoices/www/offer-send.tcl 19 Dec 2005 20:10:04 -0000 1.11
@@ -30,19 +30,22 @@
# set offer_text "{[_ invoices.iv_offer_email]}"
set subject [lang::util::localize "#invoices.iv_offer_email_subject#" $locale]
set template "OfferTemplate"
+ set file_title [lang::util::localize "#invoices.file_offer#_${offer_nr}.pdf" $locale]
} else {
# send accepted offer
# set offer_text "{[_ invoices.iv_offer_accepted_email]}"
set subject [lang::util::localize "#invoices.iv_offer_accepted_email_subject#" $locale]
set template "OfferAcceptedTemplate"
+ set file_title [lang::util::localize "#invoices.file_offer_accepted#_${offer_nr}.pdf" $locale]
}
set offer_text [iv::offer::parse_data -offer_id $offer_id -recipient_id $contact_id -template $template -locale $locale -accept_link $accept_link]
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}.pdf" -description "PDF version of this offer" $offer_id $pdf_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
+ set file_ids [cr_import_content -title $file_title -description "PDF version of this offer" $offer_id $pdf_file $file_size application/pdf "[clock seconds]-[expr round([ns_rand]*100000)]"]
+ set return_url [export_vars -base offer-pdf {offer_id {file_id $file_ids}}]
} else {
set file_ids ""
}
@@ -77,7 +80,7 @@
# Create a task for the saved offer
set task_id [tasks::task::new \
-title "Nachfassen Angebot" \
- -description "Angebot Nr. $offer_id" \
+ -description "Angebot Nr. $offer_nr" \
-mime_type "text/plain" \
-party_id $contact_id \
-due_date ${due_date} \