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.20 -r1.21
--- openacs-4/packages/invoices/www/offer-send.tcl	10 Apr 2006 06:21:58 -0000	1.20
+++ openacs-4/packages/invoices/www/offer-send.tcl	10 Apr 2006 11:26:01 -0000	1.21
@@ -47,6 +47,9 @@
     set file_title [lang::util::localize "#invoices.file_offer_accepted#_${offer_nr}.pdf" $locale]
 }
 
+set invoice_url [site_node::get_package_url -package_key invoices]
+set cancel_url [export_vars -base "${invoice_url}offer-ae" {offer_id {mode display} return_url}]
+
 # substitute variables in offer text
 # and return the content of the email plus the file-paths to the document file
 set documents [iv::offer::parse_data -offer_id $offer_id -type $document_type -email_text $offer_text -accept_link $accept_link]