[bknr-cvs] hans changed trunk/projects/bos/web/sponsor-handlers.lisp

[BKNR Commits]

Revision: 4023
Author: hans
URL: http://bknr.net/trac/changeset/4023

Convert numsqm to integer before using it for calculations.

U   trunk/projects/bos/web/sponsor-handlers.lisp

Modified: trunk/projects/bos/web/sponsor-handlers.lisp
===================================================================
--- trunk/projects/bos/web/sponsor-handlers.lisp	2008-10-30 15:31:22 UTC (rev 4022)
+++ trunk/projects/bos/web/sponsor-handlers.lisp	2008-10-30 16:12:57 UTC (rev 4023)
@@ -109,7 +109,8 @@
 (defmethod handle-object-form ((handler edit-sponsor-handler) (action (eql :create)) (sponsor (eql nil)))
   (with-query-params (numsqm country email name address date language want-print)
     (let* ((sponsor (make-sponsor :email email :country country :language language))
-           (contract (make-contract sponsor (parse-integer numsqm)
+           (numsqm (parse-integer numsqm))
+           (contract (make-contract sponsor numsqm
                                     :paidp (format nil "~A: manually created by ~A"
                                                    (format-date-time (get-universal-time))
                                                    (user-login (bknr.web:bknr-session-user)))