point people at DBI/DBD documentation for information on data sources. *sigh*

[freeside.git] / FS / FS / part_export / shellcommands.pm

diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm
index e99c382..7a87bd3 100644 (file)
--- 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"))
   );