[bknr-cvs] r2038 - in branches/xml-class-rework/projects/bos: m2 worldpay-test

[bknr at bknr.net]

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