Pass bop_options to gateway

[Business-OnlinePayment-CardFortress.git] / lib / Business / OnlinePayment / CardFortress.pm

diff --git a/lib/Business/OnlinePayment/CardFortress.pm b/lib/Business/OnlinePayment/CardFortress.pm
index 1a8af71..1d97d49 100644 (file)
--- 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(