[bknr-cvs] hans changed trunk/projects/bos/

[BKNR Commits]

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

Fix sponsor XML problems.

U   trunk/projects/bos/m2/mail-generator.lisp
U   trunk/projects/bos/web/sponsor-handlers.lisp

Modified: trunk/projects/bos/m2/mail-generator.lisp
===================================================================
--- trunk/projects/bos/m2/mail-generator.lisp	2008-11-25 12:51:47 UTC (rev 4081)
+++ trunk/projects/bos/m2/mail-generator.lisp	2008-11-26 21:26:40 UTC (rev 4082)
@@ -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: trunk/projects/bos/web/sponsor-handlers.lisp
===================================================================
--- trunk/projects/bos/web/sponsor-handlers.lisp	2008-11-25 12:51:47 UTC (rev 4081)
+++ trunk/projects/bos/web/sponsor-handlers.lisp	2008-11-26 21:26:40 UTC (rev 4082)
@@ -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)")