From c52f29f23bed4af764c0a3deda0f43e2d40c8e51 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 18 Dec 2001 01:49:35 +0000
Subject: [PATCH] add freeside-setinvoice to MANIFEST

fix warning:

FS::cust_main_invoice=HASH(0x90c86c4) at
/usr/local/lib/perl5/site_perl/5.005/FS/svc_acct.pm line 419.
---
 FS/FS/svc_acct.pm | 9 +++++----
 FS/MANIFEST       | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 8f9216fb7..382987e1b 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -415,9 +415,10 @@ sub delete {
   foreach my $cust_main_invoice (
     qsearch( 'cust_main_invoice', { 'dest' => $self->svcnum } )
   ) {
-    #next unless defined; #wtf is up with qsearch?
-    warn $cust_main_invoice;
-    next unless defined $cust_main_invoice;
+    unless ( defined($cust_main_invoice) ) {
+      warn "WARNING: something's wrong with qsearch";
+      next;
+    }
     my %hash = $cust_main_invoice->hash;
     $hash{'dest'} = $self->email;
     my $new = new FS::cust_main_invoice \%hash;
@@ -960,7 +961,7 @@ sub ssh {
 
 =head1 VERSION
 
-$Id: svc_acct.pm,v 1.55 2001-11-05 17:00:41 jeff Exp $
+$Id: svc_acct.pm,v 1.56 2001-12-18 01:49:35 ivan Exp $
 
 =head1 BUGS
 
diff --git a/FS/MANIFEST b/FS/MANIFEST
index d4bac3d73..b7804ccc3 100644
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -8,6 +8,7 @@ bin/freeside-email
 bin/freeside-queued
 bin/freeside-apply-credits
 bin/freeside-adduser
+bin/freeside-setinvoice
 FS.pm
 FS/CGI.pm
 FS/Conf.pm
-- 
2.11.0