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