Revision: 3784 Author: ksprotte URL: http://bknr.net/trac/changeset/3784
"Keine Urkunde" Option f?\195?\188r manuell eingerichtete Sponsoren U trunk/projects/bos/web/sponsor-handlers.lisp
Modified: trunk/projects/bos/web/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/web/sponsor-handlers.lisp 2008-09-03 16:19:44 UTC (rev 3783) +++ trunk/projects/bos/web/sponsor-handlers.lisp 2008-09-03 16:50:27 UTC (rev 3784) @@ -99,19 +99,22 @@ (: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 "Sponsor wants a printed certificate") + (:td (checkbox-field "want-print" "" :checked nil))) (:tr (:td (submit-button "create" "create" :formcheck "javascript:return check_complete_sale()"))))))))))
(defun date-to-universal (date-string) (apply #'encode-universal-time 0 0 0 (mapcar #'parse-integer (split #?r"." date-string))))
(defmethod handle-object-form ((handler edit-sponsor-handler) (action (eql :create)) (sponsor (eql nil))) - (with-query-params (numsqm country email name address date language) + (with-query-params (numsqm country email name address date language want-print) (let* ((sponsor (make-sponsor :email email :country country :language language)) (contract (make-contract sponsor (parse-integer numsqm) :paidp (format nil "~A: manually created by ~A" (format-date-time (get-universal-time)) (user-login (bknr.web:bknr-session-user))) - :date (date-to-universal date)))) + :date (date-to-universal date) + :download-only (not want-print)))) (contract-issue-cert contract name :address address :language language) (send-to-postmaster #'mail-backoffice-sponsor-data contract numsqm country email name address language (all-request-params)) (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor))))))