diff options
| author | ivan <ivan> | 2001-08-11 00:01:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-11 00:01:39 +0000 |
| commit | f28fd9cd33b10ea314049ba8c4ea73a5717a1bba (patch) | |
| tree | e849fa3c4be638118d95b13e9541645c38c4f3bb /FS/FS/cust_main_invoice.pm | |
| parent | 12a063fdd97054b7bfd412f3e77691fe3f497bbc (diff) | |
"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 :/
Diffstat (limited to 'FS/FS/cust_main_invoice.pm')
| -rw-r--r-- | FS/FS/cust_main_invoice.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 58542c6..eb0162f 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 |