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 ccde72a..7a87bd3 100644 (file)
--- a/FS/FS/part_export/shellcommands.pm
+++ b/FS/FS/part_export/shellcommands.pm
@@ -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"))
   );