From 615be84825733a47906497b54005146c84770dd4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 23 Oct 2004 10:36:54 +0000
Subject: [PATCH] add debug flag

---
 FS/FS/part_export/artera_turbo.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/FS/FS/part_export/artera_turbo.pm b/FS/FS/part_export/artera_turbo.pm
index 13a4f39a7..af4c79052 100644
--- a/FS/FS/part_export/artera_turbo.pm
+++ b/FS/FS/part_export/artera_turbo.pm
@@ -22,6 +22,9 @@ tie my %options, 'Tie::IxHash',
   'production' => { 'label' => 'Production mode (leave unchecked for staging)',
                     'type'  => 'checkbox',
                   },
+  'debug'      => { 'label' => 'Enable debug logging',
+                    'type'  => 'checkbox',
+                  },
 ;
 
 %info = (
@@ -62,6 +65,7 @@ sub _export_insert {
 
   eval "use Net::Artera;";
   return $@ if $@;
+  $Net::Artera::DEBUG = 1 if $self->option('debug');
   my $artera = $self->_new_Artera;
 
   my $cust_pkg = $svc_external->cust_svc->cust_pkg;
@@ -133,6 +137,7 @@ sub statusChange {
 
   eval "use Net::Artera;";
   return $@ if $@;
+  $Net::Artera::DEBUG = 1 if $self->option('debug');
   my $artera = $self->_new_Artera;
 
   my $result = $artera->statusChange(
-- 
2.11.0