X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-eSelectPlus.git;a=blobdiff_plain;f=eSelectPlus.pm;fp=eSelectPlus.pm;h=33577031ca6cb0e14718d46cbd62c7508423eaa6;hp=8ef134f2dbb5498c3e5c5697b2c8eb8329d7576f;hb=b946d6a32d3fce0a04e175106cc0e824f58ed397;hpb=80ce0eff9b7c99603ba4dff0e3bc4b9176f564a6 diff --git a/eSelectPlus.pm b/eSelectPlus.pm index 8ef134f..3357703 100644 --- a/eSelectPlus.pm +++ b/eSelectPlus.pm @@ -8,7 +8,7 @@ use Business::OnlinePayment::HTTPS 0.03; use vars qw($VERSION $DEBUG @ISA); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.05'; +$VERSION = '0.06'; $DEBUG = 0; sub set_defaults { @@ -108,9 +108,9 @@ sub submit { if ( $action =~ /^(purchase|preauth|ind_refund)$/ ) { - $self->required_fields( - qw( login password amount card_number expiration ) - ); + $self->required_fields(qw( + login password amount card_number expiration + )); #cardexpiremonth & cardexpireyear $self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/ @@ -123,18 +123,18 @@ sub submit { $self->{_content}{amount} = sprintf('%.2f', $self->{_content}{amount} ); - } elsif ( $action eq 'completion' || $action eq 'purchasecorrection' ) { + } elsif ( $action =~ /^(completion|purchasecorrection|refund)$/ ) { - $self->{_content}{comp_amount} = delete $self->{_content}{amount} - if $action eq 'completion'; + $self->required_fields(qw( + login password order_number authorization + )); - $self->required_fields( qw( login password order_number authorization ) ); - - } elsif ( $action eq 'refund' ) { - - $self->required_fields( - qw( login password order_number authorization ) - ); + if ( $action eq 'completion' ) { + $self->{_content}{comp_amount} = delete $self->{_content}{amount}; + } elsif ( $action eq 'purchasecorrection' ) { + delete $self->{_content}{amount}; + #} elsif ( $action eq 'refund' ) { + } }