projects
/
Business-OnlinePayment-WesternACH.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
aa02cc5
)
0.08, fix a warning
master
author
ivan
<ivan>
Thu, 1 Oct 2009 22:16:55 +0000
(22:16 +0000)
committer
ivan
<ivan>
Thu, 1 Oct 2009 22:16:55 +0000
(22:16 +0000)
Changes
patch
|
blob
|
history
lib/Business/OnlinePayment/WesternACH.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
e1eeb67
..
4d17ef3
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Business-OnlinePayment-WesternACH
Revision history for Business-OnlinePayment-WesternACH
+0.08 Thu Oct 1 15:16:05 PDT 2009
+ - Fix "Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.5/Business/OnlinePayment/WesternACH.pm" warning when running returns
+
0.07 Tue Aug 18 22:45:10 PDT 2009
- Handle format change to transret.php results.
0.07 Tue Aug 18 22:45:10 PDT 2009
- Handle format change to transret.php results.
diff --git
a/lib/Business/OnlinePayment/WesternACH.pm
b/lib/Business/OnlinePayment/WesternACH.pm
index
4a73897
..
5240dab
100644
(file)
--- a/
lib/Business/OnlinePayment/WesternACH.pm
+++ b/
lib/Business/OnlinePayment/WesternACH.pm
@@
-11,7
+11,7
@@
use Date::Parse 'str2time';
use vars qw($VERSION @ISA $me $DEBUG);
@ISA = qw(Business::OnlinePayment::HTTPS);
use vars qw($VERSION @ISA $me $DEBUG);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
7
';
+$VERSION = '0.0
8
';
$me = 'Business::OnlinePayment::WesternACH';
$DEBUG = 0;
$me = 'Business::OnlinePayment::WesternACH';
$DEBUG = 0;
@@
-179,8
+179,9
@@
sub get_returns {
if(exists($content->{'command'})) {
croak 'get_returns: command is already set on this transaction';
}
if(exists($content->{'command'})) {
croak 'get_returns: command is already set on this transaction';
}
- if ($content->{'returns_method'} eq 'requester') {
-# Obsolete, deprecated method supported for now as a fallback option.
+ if ( exists($content->{'returns_method'}) &&
+ $content->{'returns_method'} eq 'requester') {
+ # Obsolete, deprecated method supported for now as a fallback option.
$content->{'command'} = 'get_returns';
$self->submit;
if($self->is_success) {
$content->{'command'} = 'get_returns';
$self->submit;
if($self->is_success) {