X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FBusiness%2FOnlinePayment%2FWesternACH.pm;h=5240dab9a4c1b1bb9988a62a6f2d0edff84a7c53;hb=9ec0c0fea1786883279373e552a8c3997016e980;hp=4a7389701bd753c55728df96662a95124e4e7b52;hpb=aa02cc5759a4ecf515a7ea0275330e36e107d92d;p=Business-OnlinePayment-WesternACH.git 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) {