[bknr-cvs] r2150 - trunk/projects/bos/worldpay-test

[bknr at bknr.net]

Author: hhubner
Date: 2007-04-15 03:08:04 -0400 (Sun, 15 Apr 2007)
New Revision: 2150

Modified:
   trunk/projects/bos/worldpay-test/sponsor-handlers.lisp
Log:
Add contract creator information to manually created sponsors.


Modified: trunk/projects/bos/worldpay-test/sponsor-handlers.lisp
===================================================================
--- trunk/projects/bos/worldpay-test/sponsor-handlers.lisp	2007-04-15 07:07:16 UTC (rev 2149)
+++ trunk/projects/bos/worldpay-test/sponsor-handlers.lisp	2007-04-15 07:08:04 UTC (rev 2150)
@@ -93,7 +93,11 @@
 (defmethod handle-object-form ((handler edit-sponsor-handler) (action (eql :create)) (sponsor (eql nil)) req)
   (with-query-params (req numsqm country email name address date language)
     (let* ((sponsor (make-sponsor :email email :country country))
-	   (contract (make-contract sponsor (parse-integer numsqm) :paidp t :date (date-to-universal date))))
+	   (contract (make-contract sponsor (parse-integer numsqm)
+				    :paidp (format nil "~A: manually created by ~A"
+						   (format-date-time (get-universal-time))
+						   (user-login (bknr-request-user req)))
+				    :date (date-to-universal date))))
       (contract-issue-cert contract name :address address :language language)
       (mail-backoffice-sponsor-data contract req)
       (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor)) req))))