diff options
| author | ivan <ivan> | 2009-10-01 22:16:55 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-10-01 22:16:55 +0000 |
| commit | 9ec0c0fea1786883279373e552a8c3997016e980 (patch) | |
| tree | 14bb6f73efa1a368d66b20d32e8e9dc78530f14b /lib/Business/OnlinePayment/WesternACH.pm | |
| parent | aa02cc5759a4ecf515a7ea0275330e36e107d92d (diff) | |
Diffstat (limited to 'lib/Business/OnlinePayment/WesternACH.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/WesternACH.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm index 4a73897..5240dab 100644 --- 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); -$VERSION = '0.07'; +$VERSION = '0.08'; $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 ($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) { |