Index: openacs-4/packages/ecommerce/www/finalize-order.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/finalize-order.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/ecommerce/www/finalize-order.tcl	11 Aug 2008 06:40:45 -0000	1.10
+++ openacs-4/packages/ecommerce/www/finalize-order.tcl	4 Sep 2008 12:24:06 -0000	1.11
@@ -16,6 +16,7 @@
     @revision-date April 2002
 
 } {
+    {card_code ""}
 }
 
 # If they reload, we don't have to worry about the credit card
@@ -264,7 +265,7 @@
             values
             (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-        array set response [ec_creditcard_authorization $order_id $transaction_id]
+        array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
         set result $response(response_code)
         set transaction_id $response(transaction_id)
         if { [string equal $result "authorized"] } {
@@ -332,7 +333,7 @@
             values
             (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-        array set response [ec_creditcard_authorization $order_id $transaction_id]
+        array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
         set result $response(response_code)
         set transaction_id $response(transaction_id)
         if { [string equal $result "authorized"] } {
@@ -355,7 +356,7 @@
             # for the scheduled procedures to mark the
             # transaction.
 
-            array set response [ec_creditcard_marking $transaction_id]
+            array set response [ec_creditcard_marking $transaction_id $card_code]
             set mark_result $response(response_code)
             set pgw_transaction_id $response(transaction_id)
             if { [string equal $mark_result "invalid_input"]} {
@@ -436,7 +437,7 @@
             values
             (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-        array set response [ec_creditcard_authorization $order_id $transaction_id]
+        array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
         set result $response(response_code)
         set soft_goods_transaction_id $response(transaction_id)
         if { [string equal $result "authorized"] } {
@@ -463,7 +464,7 @@
             values
             (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-            array set response [ec_creditcard_authorization $order_id $transaction_id]
+            array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
             set result $response(response_code)
             set hard_goods_transaction_id $response(transaction_id)
             if { [string equal $result "authorized"] } {
@@ -488,7 +489,7 @@
             # waiting for the scheduled procedures to mark
             # the transaction.
 
-            array set response [ec_creditcard_marking $transaction_id]
+            array set response [ec_creditcard_marking $transaction_id $card_code]
             set mark_result $response(response_code)
             set pgw_transaction_id $response(transaction_id)
             if { [string equal $mark_result "invalid_input"]} {
@@ -617,7 +618,7 @@
         values
         (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-        array set response [ec_creditcard_authorization $order_id $transaction_id]
+        array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
         set result $response(response_code)
         set transaction_id $response(transaction_id)
         #ns_log Notice "finalize-order.tcl, ref(623): order_id=$order_id,result=$result,transaction_id=${transaction_id}"
@@ -727,7 +728,7 @@
         values
         (:transaction_id, :order_id, :transaction_amount, 'charge', sysdate)"
 
-        array set response [ec_creditcard_authorization $order_id $transaction_id]
+        array set response [ec_creditcard_authorization $order_id $transaction_id $card_code]
         set result $response(response_code)
         set transaction_id $response(transaction_id)
         if { [string equal $result "authorized"] } {
@@ -749,7 +750,7 @@
         # Mark the transaction now, rather than waiting for
         # the scheduled procedures to mark the transaction.
 
-        array set response [ec_creditcard_marking $transaction_id]
+        array set response [ec_creditcard_marking $transaction_id $card_code]
         set mark_result $response(response_code)
         set pgw_transaction_id $response(transaction_id)
         if { [string equal $mark_result "invalid_input"]} {