Author: hhubner Date: 2006-12-04 05:42:51 -0500 (Mon, 04 Dec 2006) New Revision: 2108
Modified: trunk/projects/bos/worldpay-test/tags.lisp Log: direkt bank transfer enabled for danish version.
Modified: trunk/projects/bos/worldpay-test/tags.lisp =================================================================== --- trunk/projects/bos/worldpay-test/tags.lisp 2006-12-04 10:02:09 UTC (rev 2107) +++ trunk/projects/bos/worldpay-test/tags.lisp 2006-12-04 10:42:51 UTC (rev 2108) @@ -59,16 +59,17 @@ (define-bknr-tag buy-sqm (&key children) (with-template-vars (numsqm numsqm1 action gift donationcert-yearly download-only) (let* ((numsqm (parse-integer (or numsqm numsqm1))) - ;; Wer ueber dieses Formular bestellt, ist ein neuer Sponsor, - ;; also ein neues Sponsorenobjekt anlegen. Eine Profil-ID - ;; wird automatisch zugewiesen, sonstige Daten haben wir zu - ;; diesem Zeitpunkt noch nicht. - ;; XXX Überweisung wird nur für die deutsche Website - ;; angeboten, was passenderweise durch die folgende + ;; Wer ueber dieses Formular bestellt, ist ein neuer + ;; Sponsor, also ein neues Sponsorenobjekt anlegen. Eine + ;; Profil-ID wird automatisch zugewiesen, sonstige Daten + ;; haben wir zu diesem Zeitpunkt noch nicht. XXX + ;; Überweisung wird nur für die deutsche und dänische + ;; Website angeboten, was passenderweise durch die folgende ;; Überprüfung auch sicher gestellt wurde. Sollte man aber ;; eventuell noch mal prüfen und sicher stellen. (manual-transfer (or (scan #?r"rweisen" action) - (scan #?r"rweisung" action))) + (scan #?r"rweisung" action) + (scan #?r"overf" action))) (sponsor (make-sponsor)) (price (* numsqm 3)) (contract (make-contract sponsor numsqm