From f28fd9cd33b10ea314049ba8c4ea73a5717a1bba Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 11 Aug 2001 00:01:39 +0000
Subject: [PATCH] "fixes"

Can't call method "username" on an undefined
value at /usr/lib/perl5/site_perl/5.6.0/FS/cust_main_invoice.pm line 162.

but cust_main_invoice records should probably be updated when svc_acct records
are deleted :/
---
 FS/FS/cust_main_invoice.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm
index 58542c688..eb0162f0e 100644
--- a/FS/FS/cust_main_invoice.pm
+++ b/FS/FS/cust_main_invoice.pm
@@ -158,8 +158,9 @@ Returns the literal email address for this record (or `POST').
 
 sub address {
   my $self = shift;
-  if ( $self->dest =~ /(\d+)$/ ) {
-    my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $1 } );
+  if ( $self->dest =~ /^(\d+)$/ ) {
+    my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $1 } )
+      or return undef;
     $svc_acct->username . '@' . $mydomain;
   } else {
     $self->dest;
@@ -170,7 +171,7 @@ sub address {
 
 =head1 VERSION
 
-$Id: cust_main_invoice.pm,v 1.4 2001-07-27 17:16:25 ivan Exp $
+$Id: cust_main_invoice.pm,v 1.5 2001-08-11 00:01:39 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0