use vars qw($VERSION $DEBUG @ISA);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.04';
+$VERSION = '0.05';
$DEBUG = 0;
sub set_defaults {
} elsif ( $action eq 'completion' || $action eq 'purchasecorrection' ) {
+ $self->{_content}{comp_amount} = delete $self->{_content}{amount}
+ if $action eq 'completion';
+
$self->required_fields( qw( login password order_number authorization ) );
} elsif ( $action eq 'refund' ) {
my( $page, $response, @reply_headers) = $self->https_post( $post_data );
- #my %reply_headers = @reply_headers;
- #warn join('', map { " $_ => $reply_headers{$_}\n" } keys %reply_headers )
- # if $DEBUG;
+ if ($DEBUG > 1) {
+ my %reply_headers = @reply_headers;
+ warn join('', map { " $_ => $reply_headers{$_}\n" } keys %reply_headers)
+ }
if ($response !~ /^200/) {
# Connection error
$self->is_success(0);
my $diag_message = $response || "connection error";
die $diag_message;
-
}
# avs_code - eSELECTplus_Perl_IG.pdf Appendix F
die "gateway error: ". $self->GetXMLProp( $page, 'Message' )
if $result =~ /^null$/i;
- # New unique reference created by the gateway
- $self->order_number($self->GetXMLProp($page, 'ReferenceNum'));
# Original order_id supplied to the gateway
- #$self->order_number($self->GetXMLProp($page, 'ReceiptId'));
+ $self->order_number($self->GetXMLProp($page, 'ReceiptId'));
# We (Whizman & DonorWare) do not have enough info about "ISO"
# response codes to make use of them.
if ( $result =~ /^\d+$/ && $result < 50 ) {
$self->is_success(1);
- $self->authorization($self->GetXMLProp($page, 'AuthCode'));
+ $self->authorization($self->GetXMLProp($page, 'TransID'));
} elsif ( $result =~ /^\d+$/ ) {
$self->is_success(0);
my $tmp_msg = $self->GetXMLProp( $page, 'Message' );
For detailed information see L<Business::OnlinePayment>.
-=head1 Note for Canadian merchants upgrading to 0.03
+=head1 NOTES
+
+=head2 Note for Canadian merchants upgrading to 0.03
As of version 0.03, this module now defaults to the US Moneris. Make sure to
pass currency=>'CAD' for Canadian transactions.
+=head2 Note for upgrading to 0.05
+
+As of version 0.05, the bank authorization code is discarded (AuthCode),
+so that authorization() and order_number() can return the 2 fields needed
+for capture. See also
+cpansearch.perl.org/src/IVAN/Business-OnlinePayment-3.02/notes_for_module_writers_v3
+
=head1 AUTHOR
Ivan Kohler <ivan-eselectplus@420.am>
-Randall Whitman <www.whizman.com>
+Randall Whitman L<whizman.com|http://whizman.com>
=head1 SEE ALSO