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

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2001-11-14 01:18:33 GMT
Modified:  lib/Vend/Payment BoA.pm
Log:
	* Fixes supplied by Mark Johnson to determine transaction
	  type automatically.

Revision  Changes    Path
1.3       +4 -4      interchange/lib/Vend/Payment/BoA.pm


rev 1.3, prev_rev 1.2
Index: BoA.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Payment/BoA.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- BoA.pm	2001/11/13 19:59:32	1.2
+++ BoA.pm	2001/11/14 01:18:33	1.3
@@ -1,6 +1,6 @@
 # Vend::Payment::BoA - Interchange BoA support
 #
-# $Id: BoA.pm,v 1.2 2001/11/13 19:59:32 mheins Exp $
+# $Id: BoA.pm,v 1.3 2001/11/14 01:18:33 mheins Exp $
 #
 # Copyright (C) 1999-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -33,7 +33,7 @@
 
 =head1 Interchange BoA Support
 
-Vend::Payment::BoA $Revision: 1.2 $
+Vend::Payment::BoA $Revision: 1.3 $
 
 =head1 SYNOPSIS
 
@@ -443,14 +443,14 @@
     $opt->{extra_headers} = { Referer => $referer };
 
     my $call_gateway = sub {
-	my ($opt,$query,$trans) = @_;
+	my ($opt,$query) = @_;
 	my $thing    = post_data($opt, $query);
 	my $page     = $thing->{result_page};
 	my $response = $thing->{status_line};
 #::logDebug("BoA post_data response: " . ::uneval($thing) );
 	
 	my %result;
-	if ($trans eq 'auth') {
+ 	if ($opt->{script} =~ /payment/) {
 		$page =~ s/^.*?A HREF=\?m=$user&//si;
 		$page =~ s/>.*$//s;