- tests: enable check.t and add crypt_check.t and {crypt_}bad_check.t
- update with new test account
- s/CHECK/ECHECK/, DOH
+ - move "payee" to a new() option, that makes more sense?
+ - use 'RECURRIN' for check # if one is missing...?
0.02 Mon Sep 13 17:14:29 2004
- update test account with new PIN
license_num => 'ec_id_number',\r
license_state => 'ec_id_state',\r
#license_dob =>\r
- payee => 'ec_payee',\r
+ #get from new() args instead# payee => 'ec_payee',\r
check_number => 'ec_serial_number',\r
\r
#recurring_billing => 'cnp_recurring',\r
#XXX counter field shouldn't be just a random integer (but it does need a\r
#default this way i guess...\r
$self->{_content}{counter} = int(rand(2**31));\r
- \r
+\r
if ( $self->transaction_type =~ /^[EA][VS]$/ ) {\r
#ccexp_month & ccexp_year\r
$self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/\r
$self->{_content}{ccexp_year} = $year;\r
}\r
\r
+ if ( $self->transaction_type =~ /^D[DVCH]$/ ) { #echeck\r
+\r
+ #check number kludge... "periodic bill payments" don't have check #s!\r
+ $self->{_content}{ec_serial_number} = 'RECURRIN'\r
+ #$self->{_content}{ec_serial_number} = '00000000'\r
+ if ! length($self->{_content}{ec_serial_number})\r
+ && $self->{_content}{ec_payment_type} =~ /^(PPD)?$/i;\r
+\r
+ ( $self->{_content}{ec_payee} = $self->payee )\r
+ or croak "'payee' option required when instantiating new ".\r
+ "Business::OnlinePayment::OpenECHO object\n";\r
+ }\r
+\r
$self->{_content}{cnp_recurring} = 'Y'\r
if exists($self->{_content}{recurring_billing})\r
&& $self->{_content}{recurring_billing} =~ /^y/i;\r
\r
=head2 Check\r
\r
-Not yet implemented...\r
-#Content required: type, login, password, action, amount, first_name, last_name, account_number, routing_code, bank_name.\r
+Content required: type, login, password, action, amount, first_name, last_name, account_number, routing_code, bank_name. (...more)\r
\r
=head1 PREREQUISITES\r
\r
use Business::OnlinePayment;
# checks are broken it seems
-my $ctx = new Business::OnlinePayment("OpenECHO");
+my $ctx = new Business::OnlinePayment("OpenECHO",
+ payee => 'Tofu Heavy Enterprises, GmbH',
+);
$ctx->content(
type => 'ECHECK',
'login' => '123>4685706',
routing_code => '026009593',
bank_name => 'First National Test Bank',
phone => '420-420-5454',
- payee => 'Tofu Heavy Enterprises, GmbH',
+ #payee => 'Tofu Heavy Enterprises, GmbH',
check_number => '420',
);
$ctx->test_transaction(1); # test, dont really charge
use Business::OnlinePayment;
# checks are broken it seems
-my $ctx = new Business::OnlinePayment("OpenECHO");
+my $ctx = new Business::OnlinePayment( "OpenECHO",
+ 'payee' => 'Tofu Heavy Enterprises, GmbH',
+);
$ctx->content(
type => 'ECHECK',
'login' => '123>4685706',
routing_code => '026009593',
bank_name => 'First National Test Bank',
phone => '420-420-5454',
- payee => 'Tofu Heavy Enterprises, GmbH',
+ #payee => 'Tofu Heavy Enterprises, GmbH',
check_number => '420',
);
$ctx->test_transaction(1); # test, dont really charge
use Business::OnlinePayment;
# checks are broken it seems
-my $ctx = new Business::OnlinePayment("OpenECHO");
+my $ctx = new Business::OnlinePayment("OpenECHO",
+ payee => 'Tofu Heavy Enterprises, GmbH',
+);
$ctx->content(
type => 'ECHECK',
'login' => '123>4685706',
routing_code => '026009593',
bank_name => 'First National Test Bank',
phone => '420-420-5454',
- payee => 'Tofu Heavy Enterprises, GmbH',
+ #payee => 'Tofu Heavy Enterprises, GmbH',
check_number => '420',
);
$ctx->test_transaction(1); # test, dont really charge
use Business::OnlinePayment;
# checks are broken it seems
-my $ctx = new Business::OnlinePayment("OpenECHO");
+my $ctx = new Business::OnlinePayment("OpenECHO",
+ payee => 'Tofu Heavy Enterprises, GmbH',
+);
$ctx->content(
type => 'ECHECK',
'login' => '123>4685706',
routing_code => '026009593',
bank_name => 'First National Test Bank',
phone => '420-420-5454',
- payee => 'Tofu Heavy Enterprises, GmbH',
+ #payee => 'Tofu Heavy Enterprises, GmbH',
check_number => '420',
);
$ctx->test_transaction(1); # test, dont really charge