Index: openacs-4/packages/sample-gateway/tcl/sample-gateway-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/sample-gateway/tcl/sample-gateway-procs.tcl,v
diff -u -r1.1.8.1 -r1.1.8.2
--- openacs-4/packages/sample-gateway/tcl/sample-gateway-procs.tcl	27 Jan 2005 02:47:39 -0000	1.1.8.1
+++ openacs-4/packages/sample-gateway/tcl/sample-gateway-procs.tcl	12 Aug 2005 10:13:36 -0000	1.1.8.2
@@ -139,7 +139,7 @@
     # of being split out on its own.
     set return_values(response_code) [nsv_get payment_gateway_return_codes success]
     set return_values(reason) ""
-    set return_values(transaction_id) ""
+    set return_values(transaction_id) [db_nextval ec_transaction_id_sequence]
     return [array get return_values]
 }