Author: hhubner Date: 2006-10-15 09:42:29 -0400 (Sun, 15 Oct 2006) New Revision: 1999
Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp Log: Mail-Subject ge?\195?\164ndert
Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-10-15 13:28:08 UTC (rev 1998) +++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-10-15 13:42:29 UTC (rev 1999) @@ -36,12 +36,12 @@ ((equal "C" transStatus) (setf template-name #?"/$(lang)/sponsor_canceled")) ((< (contract-price contract) *mail-certificate-threshold*) - (mail-request-parameters request (format nil "Spenderdaten - Sponsor-ID ~D Contract-ID ~D" + (mail-request-parameters request (format nil "Online-Spenderdaten - Sponsor-ID ~D Contract-ID ~D" (store-object-id (contract-sponsor contract)) (store-object-id contract))) (setf template-name #?"/$(lang)/quittung")) (t - (mail-request-parameters request (format nil "Spenderdaten - Sponsor-ID ~D Contract-ID ~D" + (mail-request-parameters request (format nil "Online-Spenderdaten - Sponsor-ID ~D Contract-ID ~D" (store-object-id (contract-sponsor contract)) (store-object-id contract))) (when (<= *mail-fiscal-certificate-threshold* (contract-price contract))