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 :/
sub address {
my $self = shift;
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;
$svc_acct->username . '@' . $mydomain;
} else {
$self->dest;
-$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 $