X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FBusiness%2FOnlinePayment%2FJety.pm;h=be7301901bbae8f90e6131b3e90ccb1dcef79894;hb=6025211e7077e9ce8b15ffbe0d3f09887d813613;hp=6396912127831ae7e362cdeb2cda718fb25981ee;hpb=c912aea692222adad3b6fb81d256de426cfc6ff7;p=Business-OnlinePayment-Jety.git

diff --git a/lib/Business/OnlinePayment/Jety.pm b/lib/Business/OnlinePayment/Jety.pm
index 6396912..be73019 100644
--- a/lib/Business/OnlinePayment/Jety.pm
+++ b/lib/Business/OnlinePayment/Jety.pm
@@ -10,7 +10,7 @@ use Date::Format;
 use Tie::IxHash;
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.02';
+$VERSION = '0.04';
 $me = 'Business::OnlinePayment::Jety';
 
 $DEBUG = 0;
@@ -39,17 +39,17 @@ my @fields = (qw(
 ));
 
 my %map = (
-  login      => 'username',
-  first_name => 'firstname',
-  last_name  => 'lastname',
-  address    => 'address1',
-  bank_name  => 'bankname',
-  bank_city  => 'bankcity',
-  bank_state => 'bankstate',
-  account_number => 'accountdda',
-  routing_code => 'accountaba',
+  'login'          => 'username',
+  'first_name'     => 'firstname',
+  'last_name'      => 'lastname',
+  'address'        => 'address1',
+  'bank_name'      => 'bankname',
+  'bank_city'      => 'bankcity',
+  'bank_state'     => 'bankstate',
+  'account_number' => 'accountdda',
+  'routing_code'   => 'accountaba',
+  'description'    => 'programdesc',
 );
-  
 
 sub set_defaults {
   my $self = shift;
@@ -71,7 +71,6 @@ sub map_fields {
     if(lc($content->{action}) ne 'normal authorization');
 
   $content->{'function'} = 'echeck';
-  $content->{'programdesc'} = "415-462-1624 Business::OnlinePayment::Jety v$VERSION";
   $content->{'ref'} = time2str('%Y%m%d',time).'-'.int(rand(1000000));
 
   $content->{'phone'} ||= '111-111-1111';
@@ -105,15 +104,13 @@ sub submit {
     state
     zip
     email
-    phone
     account_number
     routing_code
     amount
-    ) );
+    description
+  ));
   $self->map_fields;
-  tie my %request, 'Tie::IxHash', (
-    map { $_, $self->{_content}->{$_} } @fields
-    );
+  tie my %request, 'Tie::IxHash', map { $_ => $self->{_content}->{$_} } @fields;
 
   $DB::single = $DEBUG;
   if($self->test_transaction()) {
@@ -171,7 +168,7 @@ Business::OnlinePayment::Jety - Jety Payments ACH backend for Business::OnlinePa
       login          => 'testdrive',
       password       => 'testpass',
       action         => 'Normal Authorization',
-      description    => 'Business::OnlinePayment test',
+      description    => '111-111-1111 www.example.com',
       amount         => '49.95',
       invoice_number => '100100',
       first_name     => 'Jason',
@@ -197,7 +194,9 @@ Business::OnlinePayment::Jety - Jety Payments ACH backend for Business::OnlinePa
 
 =head2 ECHECK
 
-Content required: type, login, password, action, amount, first_name, last_name, account_number, routing_code.
+Content required: type, login, password, action, amount, first_name, last_name, account_number, routing_code, description.
+
+description should be set in the form "111-111-1111 www.example.com"
 
 =head1 DESCRIPTION