X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-setinvoice;h=708e2fa30d40e9d7645e002b277a50a2a957817a;hp=aeaa0bb1b18ab2955b748c833c4b4769b1c84889;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=29acbc574cb1e29032c634e1f6ac63e92d14df3b

diff --git a/FS/bin/freeside-setinvoice b/FS/bin/freeside-setinvoice
index aeaa0bb1b..708e2fa30 100644
--- a/FS/bin/freeside-setinvoice
+++ b/FS/bin/freeside-setinvoice
@@ -3,7 +3,7 @@
 use strict;
 use FS::UID qw(adminsuidsetup);
 use FS::Conf;
-use FS::Record qw(qsearch);
+use FS::Record qw(qsearch qsearchs);
 use FS::cust_main;
 use FS::svc_acct;
 
@@ -20,12 +20,12 @@ foreach my $cust_main (
   my @cust_pkg = $cust_main->ncancelled_pkgs;
   foreach my $cust_pkg ( @cust_pkg ) {
     foreach my $cust_svc ( $cust_pkg->cust_svc ) {
-      my $svc_acct = qsearchs( 'svc_acct', {} );
+      my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $cust_svc->svcnum } );
       push @dest, $svc_acct->svcnum if $svc_acct;
     }
   }
   push @dest, 'POST' unless @dest;
-  $cust_main->invoicing_list(@dest);
+  $cust_main->invoicing_list(\@dest);
 }
 
 sub untaint_argv {