From: ivan <ivan>
Date: Tue, 19 Nov 2002 22:55:06 +0000 (+0000)
Subject: give better error message on bad invnum, also 'use FS::cust_bill' here
X-Git-Tag: freeside_1_5_0pre1~125
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=26da8f3994e58ca5cf80ac62f034b3ad64539e47;hp=34928158d52fb8456aa665c4bacd1f915b9cae0d

give better error message on bad invnum, also 'use FS::cust_bill' here
---

diff --git a/FS/FS/cust_bill_event.pm b/FS/FS/cust_bill_event.pm
index f631987aa..44e4d4797 100644
--- a/FS/FS/cust_bill_event.pm
+++ b/FS/FS/cust_bill_event.pm
@@ -3,6 +3,7 @@ package FS::cust_bill_event;
 use strict;
 use vars qw( @ISA );
 use FS::Record qw( qsearch qsearchs );
+use FS::cust_bill;
 use FS::part_bill_event;
 
 @ISA = qw(FS::Record);
@@ -111,10 +112,10 @@ sub check {
     || $self->ut_textn('statustext')
   ;
 
-  return "Unknown invnum"
+  return "Unknown invnum ". $self->invnum
     unless qsearchs( 'cust_bill' ,{ 'invnum' => $self->invnum } );
 
-  return "Unknown eventpart"
+  return "Unknown eventpart ". $self->eventpart
     unless qsearchs( 'part_bill_event' ,{ 'eventpart' => $self->eventpart } );
 
   ''; #no error