[bknr-cvs] r2010 - branches/xml-class-rework/projects/bos/worldpay-test

[bknr at bknr.net]

Author: hhubner
Date: 2006-10-20 01:44:25 -0400 (Fri, 20 Oct 2006)
New Revision: 2010

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp
Log:
Fix link to worldpay transaction


Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp	2006-10-20 05:38:40 UTC (rev 2009)
+++ branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp	2006-10-20 05:44:25 UTC (rev 2010)
@@ -136,8 +136,11 @@
 			 (when (probe-file (contract-pdf-pathname contract))
 			   (html :br (cmslink (contract-pdf-url contract) "Show Certificate")))
 			 (when (contract-worldpay-trans-id contract)
-			   (html :br ((:a :href (format nil "https://select.worldpay.com/wcc/admin?op-transInfo-~A=1"
-							(contract-worldpay-trans-id contract)))))))))))
+			   (html :br ((:a :class "cmslink"
+					  :target "_new"
+					  :href (format nil "https://select.worldpay.com/wcc/admin?op-transInfo-~A=1"
+							(contract-worldpay-trans-id contract)))
+				      "Show WorldPay transaction"))))))))
       (:p (submit-button "save" "save")
 	  (submit-button "delete" "delete" :confirm "Really delete this sponsor?"))))))