[bknr-cvs] ksprotte changed trunk/projects/bos/web/tags.lisp

[BKNR Commits]

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