From 589d9cfa12b8b2f60730e74fba681053ced34047 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 16 Feb 2015 11:05:16 -0800
Subject: [PATCH] Pass bop_options to gateway

---
 Changes                                    | 1 +
 lib/Business/OnlinePayment/CardFortress.pm | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/Changes b/Changes
index 743a539..6298463 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Business-OnlinePayment-CardFortress
 0.03    unreleased
         - Declare support for "Tokenize"-only action in introspection
         - Correct introspection: info_compat, not info_version
+        - Pass bop_options to gateway
 
 0.02    Mon Dec 13 22:49:44 PST 2010
         - Declare dependency on File::Slurp, closes: rt.cpan.org #63891
diff --git a/lib/Business/OnlinePayment/CardFortress.pm b/lib/Business/OnlinePayment/CardFortress.pm
index 1a8af71..1d97d49 100644
--- a/lib/Business/OnlinePayment/CardFortress.pm
+++ b/lib/Business/OnlinePayment/CardFortress.pm
@@ -54,6 +54,8 @@ sub submit {
   my %content = $self->content;
   $content{$_} = $self->$_() for qw( gateway gateway_login gateway_password );
 
+  $content{$_} = $self->$_() for grep $self->can($_), qw( bop_options );
+
   my ($page,$server_response,%headers) = $self->https_post(%content);
 
   die "$server_response\n" unless $server_response =~ /^200/;
@@ -161,6 +163,7 @@ Business::OnlinePayment::CardFortress - CardFortress backend for Business::Onlin
       'gateway_login'    => 'gwlogin',
       'gateway_password' => 'gwpass',
       'private_key'      => $private_key_string, #or filename
+      'bop_options'      => join('/', map "$_=".$options{$_}, keys %options),
   );
 
   $rx->content(
-- 
2.11.0