Revision: 4046 Author: hans URL: http://bknr.net/trac/changeset/4046
Correct error in data type assumption.
U trunk/projects/bos/m2/mail-generator.lisp
Modified: trunk/projects/bos/m2/mail-generator.lisp =================================================================== --- trunk/projects/bos/m2/mail-generator.lisp 2008-11-14 08:14:17 UTC (rev 4045) +++ trunk/projects/bos/m2/mail-generator.lisp 2008-11-14 12:28:00 UTC (rev 4046) @@ -290,6 +290,7 @@
(defun mail-backoffice-sponsor-data (contract numsqm country email name address language request-params) (let* ((contract-id (store-object-id contract)) + (numsqm (if (stringp numsqm) (parse-integer numsqm) numsqm)) (parts (list (make-html-part (format nil " <html> <body> @@ -324,7 +325,7 @@ (store-object-id contract) (store-object-id (contract-sponsor contract)) numsqm - (* 3 (parse-integer numsqm))) + (* 3 numsqm)) :name name :address address :email email)))))