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