r63630 - in /branches/upstream/libbusiness-onlinepayment-paymentech-perl/current: Changes META.yml lib/Business/OnlinePayment/PaymenTech.pm
ivan at users.alioth.debian.org
ivan at users.alioth.debian.org
Tue Oct 12 00:38:44 UTC 2010
Author: ivan
Date: Tue Oct 12 00:38:33 2010
New Revision: 63630
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63630
Log:
[svn-upgrade] new version libbusiness-onlinepayment-paymentech-perl (2.04)
Modified:
branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/Changes
branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/META.yml
branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/lib/Business/OnlinePayment/PaymenTech.pm
Modified: branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/Changes?rev=63630&op=diff
==============================================================================
--- branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/Changes (original)
+++ branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/Changes Tue Oct 12 00:38:33 2010
@@ -1,4 +1,7 @@
Revision history for Business-OnlinePayment-PaymenTech
+
+2.04 Mon Oct 11 17:30:00 PDT 2010
+ - Always send expiration date as MMYY
2.03 Sun Jan 24 13:19:29 PST 2010
- Truncate all request fields to their maximum lengths
Modified: branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/META.yml?rev=63630&op=diff
==============================================================================
--- branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/META.yml (original)
+++ branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/META.yml Tue Oct 12 00:38:33 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Business-OnlinePayment-PaymenTech
-version: 2.03
+version: 2.04
abstract: Chase Paymentech backend for Business::OnlinePayment
author:
- Mark Wells <mark at freeside.biz>
Modified: branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/lib/Business/OnlinePayment/PaymenTech.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/lib/Business/OnlinePayment/PaymenTech.pm?rev=63630&op=diff
==============================================================================
--- branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/lib/Business/OnlinePayment/PaymenTech.pm (original)
+++ branches/upstream/libbusiness-onlinepayment-paymentech-perl/current/lib/Business/OnlinePayment/PaymenTech.pm Tue Oct 12 00:38:33 2010
@@ -8,7 +8,10 @@
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.03';
+
+$VERSION = '2.04';
+$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
+
$DEBUG = 0;
$me='Business::OnlinePayment::PaymenTech';
@@ -190,7 +193,9 @@
$content{invoice_number} ||= sprintf("%04x%04x",time % 2**16,int(rand() * 2**16));
}
- $content{expiration} =~ s/\D//g; # Because Freeside sends it as mm/yy, not mmyy.
+ # Always send as MMYY
+ $content{expiration} =~ s/\D//g;
+ $content{expiration} = sprintf('%04d',$content{expiration});
$self->content(%content);
return;
More information about the Pkg-perl-cvs-commits
mailing list