[bknr-cvs] hans changed trunk/projects/bos/m2/mail-generator.lisp - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

14 Nov 2008

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

    