Revision: 4083 Author: hans URL: http://bknr.net/trac/changeset/4083
merge 4081 from trunk U deployed/bos/projects/bos/m2/mail-generator.lisp U deployed/bos/projects/bos/web/sponsor-handlers.lisp
Modified: deployed/bos/projects/bos/m2/mail-generator.lisp =================================================================== --- deployed/bos/projects/bos/m2/mail-generator.lisp 2008-11-26 21:26:40 UTC (rev 4082) +++ deployed/bos/projects/bos/m2/mail-generator.lisp 2008-11-26 21:28:07 UTC (rev 4083) @@ -202,8 +202,10 @@ (defun lookup-element-name (element-name) "Given an ELEMENT-NAME (which may be either a form field name or a name of a post parameter from worldpay), return the common XML element name" - (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) - element-name)) + (cl-ppcre:regex-replace-all "(?i)[^-a-z0-9]" + (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) + element-name) + ""))
(defun make-contract-xml-part (id params) (make-instance 'text-mime
Modified: deployed/bos/projects/bos/web/sponsor-handlers.lisp =================================================================== --- deployed/bos/projects/bos/web/sponsor-handlers.lisp 2008-11-26 21:26:40 UTC (rev 4082) +++ deployed/bos/projects/bos/web/sponsor-handlers.lisp 2008-11-26 21:28:07 UTC (rev 4083) @@ -83,8 +83,6 @@ "Download complete sponsor DB in XML format"))) (:tr ((:th :colspan "2" :align "left") (:h2 "Create sponsor"))) - (:tr (:td "Date (DD.MM.YYYY)") - (:td (text-field "date" :size 10 :value (format-date-time (get-universal-time) :show-time nil)))) (:tr (:td "Number of square meters") (:td (text-field "numsqm" :size 5))) (:tr (:td "Country code (2 chars)")