s/echeck/check/ and doc update
authorivan <ivan>
Tue, 17 Dec 2002 14:36:29 +0000 (14:36 +0000)
committerivan <ivan>
Tue, 17 Dec 2002 14:36:29 +0000 (14:36 +0000)
Jettis.pm

index 3da3b45..673bf67 100644 (file)
--- a/Jettis.pm
+++ b/Jettis.pm
@@ -194,7 +194,7 @@ sub submit {
     }
     
     my $type = lc($content{'type'});
-    if ( $type eq 'echeck' ) {
+    if ( $type eq 'check' ) {
     } else {
       croak "$type not (yet) supported";
     }
@@ -270,15 +270,16 @@ Business::OnlinePayment::Jettis - Jettis backend for Business::OnlinePayment
 
   my $tx = new Business::OnlinePayment("Jettis");
   $tx->content(
-      type           => 'ECHECK',
+      type           => 'CHECK',
       login          => 'test', #ClientID
       action         => 'Normal Authorization',
       description    => 'Business::OnlinePayment test',
       amount         => '49.95',
       invoice_number => '100100',
       name           => 'Tofu Beast',
-      card_number    => '4007000000027',
-      expiration     => '09/02',
+      account_number => '12345',
+      routing_code   => '123456789',
+      bank_name      => 'First National Test Bank',
   );
   $tx->submit();
 
@@ -294,7 +295,7 @@ For detailed information see L<Business::OnlinePayment>.
 
 =head1 NOTE
 
-This module only implements 'ECHECK' (ACH) functionality at this time.  Credit
+This module only implements 'CHECK' (ACH) functionality at this time.  Credit
 card transactions are not (yet) supported.
 
 =head1 COMPATIBILITY