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

[bknr at bknr.net]

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