Author: hhubner Date: 2006-10-20 01:36:33 -0400 (Fri, 20 Oct 2006) New Revision: 2008
Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp Log: Update wp transaction id with set-slot-values
Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-10-20 05:06:38 UTC (rev 2007) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-10-20 05:36:33 UTC (rev 2008) @@ -29,9 +29,9 @@ (let* ((contract (get-contract (parse-integer cartId))) (sponsor (contract-sponsor contract))) (change-slot-values sponsor 'bknr.web::email email) + (change-slot-values contract 'bos.m2::worldpay-trans-id transId) (sponsor-set-country sponsor country) (contract-set-paidp contract (format nil "~A: paid via worldpay" (format-date-time))) - (setf (contract-worldpay-trans-id contract) transId) (setf (get-template-var :master-code) (sponsor-master-code sponsor)) (setf (get-template-var :sponsor-id) (sponsor-id sponsor)))) (mapc #'emit-template-node children))