X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Feveryone_net.pm;h=e04318e10420a4747c27051a1f46e299c730e557;hb=ad7f49821d40ffd099a45acc32ba91e0e211aede;hp=221940d6d373c8d439653c0924cf1db1777c9e26;hpb=5ca738196b0e69e66f97836b470bc41953838ec6;p=freeside.git

diff --git a/FS/FS/part_export/everyone_net.pm b/FS/FS/part_export/everyone_net.pm
index 221940d6d..e04318e10 100644
--- a/FS/FS/part_export/everyone_net.pm
+++ b/FS/FS/part_export/everyone_net.pm
@@ -10,6 +10,8 @@ tie my %options, 'Tie::IxHash',
   'clientID'  => { label=>'clientID' },
   'password'  => { label=>'Password' },
   #'workgroup' => { label=>'Default Workgroup' },
+  'debug'     => { label=>'Enable debugging',
+                    type=>'checkbox'          },
 ;
 
 %info = (
@@ -51,6 +53,9 @@ sub _xrc_command {
   eval "use Net::XRC qw(:types);";
   return $@ if $@;
 
+  local($Net::XRC::DEBUG) = 1
+    if $self->option('debug');
+
   my $xrc = new Net::XRC (
     'clientID' => $self->option('clientID'),
     'password' => $self->option('password'),
@@ -82,7 +87,6 @@ sub _export_replace {
 
   $self->_xrc_command( 'setUserPassword',
                        $new->domain,
-                       $domain_clientID,
                        string($new->username),
                        string($new->_password),
                      );
@@ -108,7 +112,6 @@ sub _export_suspend {
 
   $self->_xrc_command( 'suspendUser',
                        $svc_acct->domain,
-                       $domain_clientID,
                        string($svc_acct->username),
                      );
 }