[bknr-cvs] r2332 - branches/bos/projects/bos/worldpay-test

[bknr at bknr.net]

Author: hhubner
Date: 2008-01-17 10:50:04 -0500 (Thu, 17 Jan 2008)
New Revision: 2332

Modified:
   branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp
Log:
Fix message after cert regeneration.


Modified: branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp
===================================================================
--- branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp	2008-01-17 15:24:19 UTC (rev 2331)
+++ branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp	2008-01-17 15:50:04 UTC (rev 2332)
@@ -324,10 +324,9 @@
   (with-query-params (req name address language)
     (contract-issue-cert contract name :address address :language language))
   (with-bos-cms-page (req :title "Certificate has been recreated")
-    (html "The certificates for the sponsor have been re-generated.")
+    (html "The certificates for the sponsor have been re-generated." :br)
     (unless (contract-download-only-p contract)
       (mail-print-pdf contract)
-      (let ((sponsor (contract-sponsor contract)))
-	(html "The print certificate has been sent to the relevant BOS office address by email."
-	      :br
-	      (cmslink #?"edit-sponsor/$((store-object-id sponsor))" "return to sponsor"))))))
\ No newline at end of file
+      (html "The print certificate has been sent to the relevant BOS office address by email." :br))
+    (let ((sponsor (contract-sponsor contract)))
+      (cmslink #?"edit-sponsor/$((store-object-id sponsor))" "return to sponsor"))))
\ No newline at end of file