Index: openacs-4/packages/ecommerce/www/checkout-one-form-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout-one-form-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ecommerce/www/checkout-one-form-2.tcl	11 Aug 2008 13:01:09 -0000	1.5
+++ openacs-4/packages/ecommerce/www/checkout-one-form-2.tcl	4 Sep 2008 12:24:06 -0000	1.6
@@ -44,6 +44,7 @@
     @param tax_exempt_p:optional
     @param usca_p:optional
     @param value_currency_code:optional
+    @param card_code:optional
 
     @author
     @creation-date April 2002
@@ -98,7 +99,7 @@
     tax_exempt_p:optional
     usca_p:optional
     value_currency_code:optional
-
+    {card_code ""}
 }
 
 # We need them to be logged in
@@ -123,6 +124,7 @@
 } else {
     set possible_exception_list [list [list bill_to_first_names "billing first name"] [list bill_to_last_name "billing last name"] [list bill_to_line1 "billing street address"] [list bill_to_city "billing city"] [list bill_to_country_code "billing country"] [list bill_to_phone "billing telephone number"]]
 }
+
 set exception_count 0
 set exception_text ""
 
@@ -680,7 +682,7 @@
         # make sure the credit card type is right & that it has
         # the right number of digits
 
-        set additional_count_and_text [ec_creditcard_precheck $creditcard_number $creditcard_type]
+        set additional_count_and_text [ec_creditcard_precheck $creditcard_number $creditcard_type $card_code]
         set exception_count [expr $exception_count + [lindex $additional_count_and_text 0]]
         append exception_text [lindex $additional_count_and_text 1]