Author: hhubner Date: 2007-09-11 04:41:27 -0400 (Tue, 11 Sep 2007) New Revision: 2174

Modified: branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp Log: Add checkbox for donation cert.

Modified: branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp =================================================================== --- branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp 2007-09-11 08:40:55 UTC (rev 2173) +++ branches/bos/projects/bos/worldpay-test/sponsor-handlers.lisp 2007-09-11 08:41:27 UTC (rev 2174) @@ -83,8 +83,10 @@ do (html ((:option :value language-symbol) (:princ-safe language-name))))))) (:tr (:td "Name for certificate") (:td (text-field "name" :size 20))) - (:tr (:td "Postal address for certificate" - (:td (textarea-field "address" :rows 5 :cols 40)))) + (:tr (:td "Postal address for certificate") + (:td (textarea-field "address" :rows 5 :cols 40))) + (:tr (:td "Issue donation cert at the end of the year") + (:td (checkbox-field "donationcert-yearly" "" :checked nil))) (:tr (:td (submit-button "create" "create" :formcheck "javascript:return check_complete_sale()"))))))))

(defun date-to-universal (date-string)