Author: hhubner Date: Thu Jan 24 16:18:58 2008 New Revision: 2405 Modified: branches/bos/projects/bos/m2/mail-generator.lisp branches/bos/projects/bos/payment-website/templates/de/ueberweisung.xml Log: Add printed certificate opt-out to manual transfer. Modified: branches/bos/projects/bos/m2/mail-generator.lisp ============================================================================== --- branches/bos/projects/bos/m2/mail-generator.lisp (original) +++ branches/bos/projects/bos/m2/mail-generator.lisp Thu Jan 24 16:18:58 2008 @@ -294,7 +294,7 @@ (mail-contract-data contract "Manually entered sponsor" parts)))) (defun mail-manual-sponsor-data (req) - (with-query-params (req contract-id vorname name strasse plz ort email telefon donationcert-yearly) + (with-query-params (req contract-id vorname name strasse plz ort email telefon want-print donationcert-yearly) (let* ((contract (store-object-with-id (parse-integer contract-id))) (sponsor-id (store-object-id (contract-sponsor contract))) (parts (list (make-html-part (format nil " @@ -311,9 +311,10 @@ <tr><td>Postcode</td><td>~@[~A~]</td></tr> <tr><td>City</td><td>~@[~A~]</td></tr> <tr><td>Email</td><td>~@[~A~]</td></tr> - <tr><td>Phone</td><td>~@[~A~]</td></tr>~@[ + <tr><td>Phone</td><td>~@[~A~]</td></tr> <tr><td></td></tr> - <tr><td>Donation receipt at year's end</td><td>~A</td></tr>~] + <tr><td>Printed certificate</td><td>~A</td></tr> + <tr><td>Donation receipt at year's end</td><td>~A</td></tr> </table> <p><a href=\"~A/complete-transfer/~A?email=~A\">Acknowledge receipt of payment</a></p> </body> @@ -323,7 +324,8 @@ (length (contract-m2s contract)) (* 3.0 (length (contract-m2s contract))) vorname name strasse plz ort email telefon - (if donationcert-yearly "ja" "nein") + (if want-print "yes" "no") + (if donationcert-yearly "yes" "no") *website-url* contract-id email)) (make-contract-xml-part contract-id (all-request-params req)) (make-vcard-part contract-id (make-vcard :sponsor-id sponsor-id Modified: branches/bos/projects/bos/payment-website/templates/de/ueberweisung.xml ============================================================================== --- branches/bos/projects/bos/payment-website/templates/de/ueberweisung.xml (original) +++ branches/bos/projects/bos/payment-website/templates/de/ueberweisung.xml Thu Jan 24 16:18:58 2008 @@ -71,9 +71,6 @@ <td colspan="3" height="7"> </td> </tr> <tr> - <td colspan="3" height="7"> </td> - </tr> - <tr> <td height="10">Vorname:</td> <td width="10"></td> <td><input name="vorname" type="text" size="25" maxlength="30" /></td> @@ -110,7 +107,16 @@ <td colspan="3" height="20"> </td> </tr> <tr> - <td align="right" colspan="3"> + <td colspan="3"> + <input type="checkbox" name="want-print"/> + Ich möchte meine Regenwaldurkunde per Post zugeschickt bekommen. + </td> + </tr> + <tr> + <td colspan="3" height="20"> </td> + </tr> + <tr> + <td align="right" colspan="3"> <input type="submit" class="form_big" name="action" value="Angaben an BOS mailen" /> </td> </tr> @@ -123,11 +129,16 @@ <strong>[Persönliche Daten]</strong> <br /> Wir reservieren gerne die von Ihnen gewünschten m². Für die Zusendung -der entsprechenden Informationen (Regenwaldurkunde, Sponsorenprofil, -Geokoordinaten, Spendenbescheinigung) benötigen wir unbedingt die -Angabe Ihrer Daten. Nach erfolgter Überweisung erhalten Sie diese -Informationen schriftlich oder per E-Mail von uns. - <br /><br /><br /> +der entsprechenden Informationen (Regenwaldurkunde, Geokoordinaten, +Spendenbescheinigung) benötigen wir Ihre Daten. Nach +erfolgter Überweisung melden wir uns schriftlich und +per E-Mail. + <br /><br /> + <strong>[Urkunde]</strong> + <br /> + Sie können Ihre Regenwaldurkunde in jedem Fall als PDF von unserem System herunterladen, auch + wenn Sie es nicht per Post zugeschickt bekommen möchten. + <br /><br /> <strong>[Dieses Formular]</strong> <br /> Bitte senden Sie dieses Formular per E-Mail direkt an uns. Sie können es auch