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