[bknr-cvs] r2108 - trunk/projects/bos/worldpay-test

[bknr at bknr.net]

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