From: ivan <ivan>
Date: Tue, 19 Jan 2010 22:34:48 +0000 (+0000)
Subject: doc: in synopsis example, move merchant_id/terminal_id from content
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PaymenTech.git;a=commitdiff_plain;h=9ed134840a3aa39429a8763dc9d0f6bc4cca8f08

doc: in synopsis example, move merchant_id/terminal_id from content
call to new constructor, and add currency.  also indent the example
code so it formats properly
---

diff --git a/Changes b/Changes
index 13e2ba9..104f1cb 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Business-OnlinePayment-PaymenTech
 
+2.03    unreleased
+        - doc: in synopsis example, move merchant_id/terminal_id from content
+          call to new constructor, and add currency.  also indent the example
+          code so it formats properly
+
 2.02    Wed Jan 13 18:40:06 PST 2010
         - Add B:OP, B:OP:HTTPS and XML::Simple to Makefile.PL PREREQ_PM
           (closes: CPAN#53646)
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