X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FBusiness%2FOnlinePayment%2FPaymenTech.pm;h=8ce9a1e70c8afafa165d53e87ebd70e0cad2d1ab;hb=9ed134840a3aa39429a8763dc9d0f6bc4cca8f08;hp=82b50d3d06222014d79bb25fd6c29a497d287d92;hpb=2e165040cb45be2dbb4d68ff1f99b7a38c08114c;p=Business-OnlinePayment-PaymenTech.git diff --git a/lib/Business/OnlinePayment/PaymenTech.pm b/lib/Business/OnlinePayment/PaymenTech.pm index 82b50d3..8ce9a1e 100644 --- a/lib/Business/OnlinePayment/PaymenTech.pm +++ b/lib/Business/OnlinePayment/PaymenTech.pm @@ -8,7 +8,7 @@ use Tie::IxHash; use vars qw($VERSION $DEBUG @ISA $me); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '2.02'; +$VERSION = '2.03_01'; $DEBUG = 0; $me='Business::OnlinePayment::PaymenTech'; @@ -285,31 +285,31 @@ Business::OnlinePayment::PaymenTech - Chase Paymentech backend for Business::Onl =head1 SYNOPSIS -$trans = new Business::OnlinePayment('PaymenTech'); -$trans->content( - login => "login", - password => "password", - merchant_id => "000111222333", - terminal_id => "001", - type => "CC", - card_number => "5500000000000004", - expiration => "0211", - address => "123 Anystreet", - city => "Sacramento", - zip => "95824", - action => "Normal Authorization", - amount => "24.99", - -); - -$trans->submit; -if($trans->is_approved) { - print "Approved: ".$trans->authorization; - -} else { - print "Failed: ".$trans->error_message; - -} + $trans = new Business::OnlinePayment('PaymenTech', + merchant_id => "000111222333", + terminal_id => "001", + currency => "USD", # CAD, MXN + ); + + $trans->content( + login => "login", + password => "password", + type => "CC", + card_number => "5500000000000004", + expiration => "0211", + address => "123 Anystreet", + city => "Sacramento", + zip => "95824", + action => "Normal Authorization", + amount => "24.99", + ); + + $trans->submit; + if($trans->is_approved) { + print "Approved: ".$trans->authorization; + } else { + print "Failed: ".$trans->error_message; + } =head1 NOTES