Revision: 3783 Author: ksprotte URL: http://bknr.net/trac/changeset/3783

fixed determination of DOWNLOAD-ONLY in MAIL-TRANSFER

If the sponsor has paid less than *mail-certificate-threshold*, it is download-only without further choice. - But now DOWNLOAD-ONLY will still be T, if the sponsor did not want a print certificate.

(or (< (contract-price contract) *mail-certificate-threshold*) (not want-print))

U trunk/projects/bos/web/tags.lisp

Modified: trunk/projects/bos/web/tags.lisp =================================================================== --- trunk/projects/bos/web/tags.lisp 2008-09-03 15:14:41 UTC (rev 3782) +++ trunk/projects/bos/web/tags.lisp 2008-09-03 16:19:44 UTC (rev 3783) @@ -124,8 +124,9 @@ contract-id name vorname strasse plz ort telefon want-print email donationcert-yearly) - (let* ((contract (store-object-with-id (parse-integer contract-id))) - (download-only (< (contract-price contract) *mail-certificate-threshold*))) + (let* ((contract (store-object-with-id (parse-integer contract-id))) + (download-only (or (< (contract-price contract) *mail-certificate-threshold*) + (not want-print)))) (with-transaction (:prepare-before-mail) (setf (contract-download-only contract) download-only) (setf (sponsor-country (contract-sponsor contract)) country))