Revision: 4016 Author: hans URL: http://bknr.net/trac/changeset/4016

Send instruction email for manually created sponsors.

U trunk/projects/bos/web/sponsor-handlers.lisp

Modified: trunk/projects/bos/web/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/web/sponsor-handlers.lisp 2008-10-24 12:54:11 UTC (rev 4015) +++ trunk/projects/bos/web/sponsor-handlers.lisp 2008-10-24 13:32:33 UTC (rev 4016) @@ -117,6 +117,7 @@ :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)) + (mail-instructions-to-sponsor contract email) (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor))))))

(defun contract-checkbox-name (contract)