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

[bknr at bknr.net]

Author: hhubner
Date: 2006-08-14 08:57:02 -0400 (Mon, 14 Aug 2006)
New Revision: 1981

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
Log:
Added left-out format which prevented worldpay payments from working


Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-08-13 14:43:32 UTC (rev 1980)
+++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-08-14 12:57:02 UTC (rev 1981)
@@ -30,7 +30,7 @@
 	   (sponsor (contract-sponsor contract)))
       (change-slot-values sponsor 'bknr.web::email email)
       (sponsor-set-country sponsor country)
-      (contract-set-paidp contract "~A: paid via worldpay" (format-date-time))
+      (contract-set-paidp contract (format nil "~A: paid via worldpay" (format-date-time)))
       (setf (get-template-var :master-code) (sponsor-master-code sponsor))
       (setf (get-template-var :sponsor-id) (sponsor-id sponsor))))
   (mapc #'emit-template-node children))