[bknr-cvs] r2405 - in branches/bos/projects/bos: m2 payment-website/templates/de
hhubner at common-lisp.net
hhubner at common-lisp.net
Thu Jan 24 21:18:59 UTC 2008
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
More information about the Bknr-cvs
mailing list