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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-10-18 06:56:24 GMT
Modified:  lib/Vend/Payment TestPayment.pm
Log:
* Fix problem with auth_code in Void mode.

Revision  Changes    Path
1.3       +5 -5      interchange/lib/Vend/Payment/TestPayment.pm


rev 1.3, prev_rev 1.2
Index: TestPayment.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Payment/TestPayment.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- TestPayment.pm	17 Oct 2002 04:46:24 -0000	1.2
+++ TestPayment.pm	18 Oct 2002 06:56:24 -0000	1.3
@@ -1,6 +1,6 @@
 # Vend::Payment::TestPayment - Interchange payment test module
 #
-# $Id: TestPayment.pm,v 1.2 2002/10/17 04:46:24 mheins Exp $
+# $Id: TestPayment.pm,v 1.3 2002/10/18 06:56:24 mheins Exp $
 #
 # Copyright (C) 2002 Cursor Software Limited.
 # All Rights Reserved.
@@ -27,7 +27,7 @@
=20
 =3Dhead1 Interchange payment test module
=20
-Vend::Payment::TestPayment $Revision: 1.2 $
+Vend::Payment::TestPayment $Revision: 1.3 $
=20
 =3Dhead1 SYNOPSIS
=20
@@ -190,7 +190,7 @@
 	unless $Vend::Quiet;
 }
=20
-$VERSION =3D substr(q$Revision: 1.2 $,10);
+$VERSION =3D substr(q$Revision: 1.3 $,10);
=20
 package Vend::Payment;
=20
@@ -282,11 +282,11 @@
 	}
 	elsif($opt->{transaction} eq 'void' ) {
 		$msg ||=3D 'Void failure: %s';
-		if(! $opt->{order_id}) {
+		if(! $actual->{order_id}) {
 			$result{'pop.status'} =3D 'failure';
 			$result{'pop.error-message'} =3D errmsg($msg,'Need order-id');
 		}
-		elsif($opt->{auth_code}) {
+		elsif(! $actual->{auth_code}) {
 			$result{'pop.status'} =3D 'failure';
 			$result{'pop.error-message'} =3D errmsg($msg,'Need auth-code');
 		}