[interchange-cvs] interchange - heins modified lib/Vend/Payment/TestPayment.pm

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-01-16 21:29:27 GMT
Modified:  lib/Vend/Payment TestPayment.pm
Log:
* Fix parameters for logging.

Revision  Changes    Path
1.7       +4 -3      interchange/lib/Vend/Payment/TestPayment.pm


rev 1.7, prev_rev 1.6
Index: TestPayment.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/TestPayment.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- TestPayment.pm	16 Jan 2005 16:31:31 -0000	1.6
+++ TestPayment.pm	16 Jan 2005 21:29:27 -0000	1.7
@@ -1,6 +1,6 @@
 # Vend::Payment::TestPayment - Interchange payment test module
 #
-# $Id: TestPayment.pm,v 1.6 2005/01/16 16:31:31 mheins Exp $
+# $Id: TestPayment.pm,v 1.7 2005/01/16 21:29:27 mheins Exp $
 #
 # Copyright (C) 2002 Cursor Software Limited.
 # All Rights Reserved.
@@ -190,7 +190,7 @@
 		unless $Vend::Quiet or ! $Global::VendRoot or ! $Global::VendRoot;
 }
 
-$VERSION = substr(q$Revision: 1.6 $,10);
+$VERSION = substr(q$Revision: 1.7 $,10);
 
 package Vend::Payment;
 
@@ -343,8 +343,9 @@
 			errmsg('TestPayment %s id=%s: function=%s status=%s amount=%s error=%s',
 					$user, 
 					$opt->{order_id},
-					$amount,
+					$opt->{transaction},
 					$result{'pop.status'},
+					$amount,
 					$result{'pop.error-message'},
 			),
 			{ file => $logfile },