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