[bknr-cvs] r2038 - in branches/xml-class-rework/projects/bos: m2 worldpay-test - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

23 Oct 2006

Author: hhubner
Date: 2006-10-23 07:45:32 -0400 (Mon, 23 Oct 2006)
New Revision: 2038
Modified:
   branches/xml-class-rework/projects/bos/m2/mail-generator.lisp
   branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp
Log:
copy-list before sorting
Modified: branches/xml-class-rework/projects/bos/m2/mail-generator.lisp
===================================================================

--- branches/xml-class-rework/projects/bos/m2/mail-generator.lisp	2006-10-23 11:10:22 UTC (rev 2037)
+++ branches/xml-class-rework/projects/bos/m2/mail-generator.lisp	2006-10-23 11:45:32 UTC (rev 2038)
@@ -207,11 +207,11 @@
 </sponsor>
 "
    								       (apply #'append (mapcar #'(lambda (cons)
-									       (list (car cons)
-										     (if (find #\Newline (cdr cons))
-											 (format nil "<![CDATA[~A]]>" (cdr cons))
-											 (cdr cons))
-										     (car cons)))
+													   (list (car cons)
+														 (if (find #\Newline (cdr cons))
+														     (format nil "<![CDATA[~A]]>" (cdr cons))
+														     (cdr cons))
+														 (car cons)))
    											       (all-request-params req)))))
    				       (make-instance 'text-mime
    						      :type "text"
@@ -253,7 +253,7 @@
 </table>
 "
    								       (apply #'append (mapcar #'(lambda (cons) (list (car cons) (cdr cons)))
-												       (sort (all-request-params req)
+												       (sort (copy-list (all-request-params req))
    												     #'string-lessp
    												     :key #'car)))))
    				       (make-instance 'text-mime
Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp	2006-10-23 11:10:22 UTC (rev 2037)
+++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp	2006-10-23 11:45:32 UTC (rev 2038)
@@ -24,7 +24,7 @@
(defmethod find-template-pathname ((handler worldpay-template-handler) template-name &key request)
   (when (scan #?r"(^|.*/)handle-sale" template-name)
-    (with-query-params (request cartId email name address country transStatus lang MC_gift MC_donationcert-yearly testMode)      
+    (with-query-params (request cartId name address country transStatus lang MC_gift)      
       (unless (website-supports-language lang)
    (setf lang *default-language*))
       (let ((contract (get-contract (parse-integer cartId))))

    