freeside/FS/FS/part_export artera_turbo.pm,1.4,1.5

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory pouncequick:/tmp/cvs-serv22550

Modified Files:
	artera_turbo.pm 
Log Message:
add debug flag

Index: artera_turbo.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/artera_turbo.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- artera_turbo.pm	22 Oct 2004 10:14:31 -0000	1.4
+++ artera_turbo.pm	23 Oct 2004 10:36:54 -0000	1.5
@@ -22,6 +22,9 @@
   'production' => { 'label' => 'Production mode (leave unchecked for staging)',
                     'type'  => 'checkbox',
                   },
+  'debug'      => { 'label' => 'Enable debug logging',
+                    'type'  => 'checkbox',
+                  },
 ;
 
 %info = (
@@ -62,6 +65,7 @@
 
   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 @@
 
   eval "use Net::Artera;";
   return $@ if $@;
+  $Net::Artera::DEBUG = 1 if $self->option('debug');
   my $artera = $self->_new_Artera;
 
   my $result = $artera->statusChange(