X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fshellcommands.pm;h=7a87bd3e014113ad98b7a405b4c3998c65408f93;hp=e99c382a4d88162b08dca1aff6ca0d91151e1507;hb=ee1a01a4d001bf993b9cce54e59f119db20e49f0;hpb=9bf26ed4b065b12826fc2980ff277a2f3be25c1d

diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm
index e99c382a4..7a87bd3e0 100644
--- a/FS/FS/part_export/shellcommands.pm
+++ b/FS/FS/part_export/shellcommands.pm
@@ -9,12 +9,12 @@ sub rebless { shift; }
 
 sub _export_insert {
   my($self) = shift;
-  $self->_export_command($self, 'useradd', @_);
+  $self->_export_command('useradd', @_);
 }
 
 sub _export_delete {
   my($self) = shift;
-  $self->_export_command($self, 'userdel', @_);
+  $self->_export_command('userdel', @_);
 }
 
 sub _export_command {
@@ -22,7 +22,7 @@ sub _export_command {
   my $command = $self->option($action);
   no strict 'refs';
   ${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
-  $self->shellcommands_queue(
+  $self->shellcommands_queue( $svc_acct->svcnum,
     $self->options('user')||'root'. "\@". $self->options('machine'),
     eval(qq("$command"))
   );
@@ -34,7 +34,7 @@ sub _export_replace {
   no strict 'refs';
   ${"old_$_"} = $old->getfield($_) foreach $old->fields;
   ${"new_$_"} = $new->getfield($_) foreach $new->fields;
-  $self->shellcommands_queue(
+  $self->shellcommands_queue( $new->svcnum,
     $self->options('user')||'root'. "\@". $self->options('machine'),
     eval(qq("$command"))
   );