projects
/
Business-OnlinePayment-StGeorge.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
50e4bcc
)
Only call init_client and free_client once, fixes multiple transactions
author
ivan
<ivan>
Fri, 7 May 2004 06:19:46 +0000
(06:19 +0000)
committer
ivan
<ivan>
Fri, 7 May 2004 06:19:46 +0000
(06:19 +0000)
Changes
patch
|
blob
|
history
StGeorge.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
ff725b1
..
0b03632
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,4
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::StGeorge.
Revision history for Perl extension Business::OnlinePayment::StGeorge.
+0.02 unreleased
+ - Only call init_client and free_client once, fixes multiple
+ transactions
+
0.01 Sat Jan 31 02:43:20 PST 2004
- original version; created by ivan 1.0
0.01 Sat Jan 31 02:43:20 PST 2004
- original version; created by ivan 1.0
diff --git
a/StGeorge.pm
b/StGeorge.pm
index
cea459c
..
1227e8b
100644
(file)
--- a/
StGeorge.pm
+++ b/
StGeorge.pm
@@
-6,9
+6,10
@@
use Carp qw(croak);
use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
-$VERSION = '0.0
1
';
+$VERSION = '0.0
2
';
use webpayperl; #webpayperl.pm from St.George
use webpayperl; #webpayperl.pm from St.George
+webpayperl::init_client or croak "St.George initialization failed\n";
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-164,10
+165,6
@@
sub submit {
# if ( $DEBUG ) { warn "$_ => $post{$_}\n" foreach keys %post; }
# if ( $DEBUG ) { warn "$_ => $post{$_}\n" foreach keys %post; }
- webpayperl::init_client or croak "St.George initialization failed\n";
- #dd this to all exit places after here
- #webpayperl::cleanup( $webpayRef );
-
my $webpayRef = webpayperl::newBundle;
webpayperl::addVersionInfo($webpayRef);
webpayperl::put($webpayRef, "DEBUG", "OFF");
my $webpayRef = webpayperl::newBundle;
webpayperl::addVersionInfo($webpayRef);
webpayperl::put($webpayRef, "DEBUG", "OFF");
@@
-194,7
+191,6
@@
sub submit {
);
webpayperl::cleanup( $webpayRef );
);
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
return;
}
return;
}
@@
-216,10
+212,13
@@
sub submit {
}
webpayperl::cleanup( $webpayRef );
}
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
}
}
+END {
+ webpayperl::free_client();
+}
+
1;
__END__
1;
__END__