From 156535a911a8ad4315dcdee397cf8aff2071b520 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 13 Dec 2001 17:52:37 +0000
Subject: [PATCH] fix setinvoice script

---
 FS/bin/freeside-setinvoice | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/bin/freeside-setinvoice b/FS/bin/freeside-setinvoice
index aeaa0bb1b..3eb75f8b7 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,7 +20,7 @@ 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;
     }
   }
-- 
2.11.0