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

[bknr at bknr.net]

Author: hhubner
Date: 2006-06-21 00:35:31 -0400 (Wed, 21 Jun 2006)
New Revision: 1957

Modified:
   branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
Log:
Only display "Download certificate" button if the sponsor has a
download certificate.


Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-06-21 04:20:45 UTC (rev 1956)
+++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp	2006-06-21 04:35:31 UTC (rev 1957)
@@ -104,7 +104,8 @@
 (define-bknr-tag when-certificate (&key children)
   (let ((sponsor (bknr-request-user (get-template-var :request))))
     (when (some #'(lambda (contract)
-		    (contract-pdf-pathname contract))
+		    (and (download-only contract)
+			 (contract-pdf-pathname contract)))
 		(sponsor-contracts sponsor))
       (mapc #'emit-template-node children))))