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.
use vars qw($VERSION @ISA $me $DEBUG);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.07';
+$VERSION = '0.08';
$me = 'Business::OnlinePayment::WesternACH';
$DEBUG = 0;
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) {