Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form-2.tcl	30 Jul 2005 22:17:00 -0000	1.9
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form-2.tcl	3 Aug 2005 22:46:40 -0000	1.10
@@ -798,6 +798,26 @@
 	    }
 
 	}
+
+	if { [db_0or1row check_transaction {
+	    select 1
+	    from dotlrn_ecommerce_transactions
+	    where order_id = :order_id
+	}] } {
+	    db_dml update_transaction_check {
+		update dotlrn_ecommerce_transactions
+		set method = 'cc',
+		internal_account = null
+		where order_id = :order_id
+	    }
+	} else {
+	    db_dml save_transaction_check {
+		insert into dotlrn_ecommerce_transactions
+		(order_id, method)
+		values
+		(:order_id, 'cc')
+	    }
+	}
     } else {
 	# Other payment methods
 	# Just store it