From df677a47383944a67d88371a83d18d557602f3cd Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Sat, 19 Aug 2006 18:46:39 +0000
Subject: [PATCH] Added backwards-compatible support for sales_number

---
 InternetSecure.pm |  3 ++-
 t/sales_number.t  | 22 ++++++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100755 t/sales_number.t

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 257e443..b6632ed 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -50,8 +50,9 @@ sub set_defaults {
 	$self->tax_amounts( {} );
 }
 
-# Backwards-compatible support for avs_response
+# Backwards-compatible support for renamed fields
 sub avs_response { shift()->avs_code(@_) }
+sub sales_number { shift()->order_number(@_) }
 
 
 # Combine get_fields and remap_fields for convenience.  Unlike OnlinePayment's
diff --git a/t/sales_number.t b/t/sales_number.t
new file mode 100755
index 0000000..6f5b429
--- /dev/null
+++ b/t/sales_number.t
@@ -0,0 +1,22 @@
+# vim:set syntax=perl:
+
+use Test::More tests => 1 + 2;
+
+BEGIN { use_ok('Business::OnlinePayment') };
+
+
+my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';
+
+$txn->parse_response(<<__EOF__);
+<?xml version="1.0" encoding="UTF-8"?>
+<TranxResponse>
+  <CardType>Test Card Number</CardType>
+  <Page>2000</Page>
+  <SalesOrderNumber>42</SalesOrderNumber>
+</TranxResponse>
+__EOF__
+
+is($txn->order_number, 42, 'order_number');
+is($txn->sales_number, 42, 'sales_number');
+
+
-- 
2.11.0