[bknr-cvs] r1999 - branches/xml-class-rework/projects/bos/worldpay-test

[bknr at bknr.net]

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))