diff options
| author | ivan <ivan> | 1999-04-07 13:41:54 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-07 13:41:54 +0000 |
| commit | 05c60524e89b7b0f0f70a531c7b7f56db45a3d9d (patch) | |
| tree | 8da5f6ce31d4489bba68521fa45a081ac9171d79 /site_perl/cust_main.pm | |
| parent | decb6d7a4becdc7e759f788454cf7ad700f6a45f (diff) | |
in &invoicing_list, don't search if there's no custnum yet
Diffstat (limited to 'site_perl/cust_main.pm')
| -rw-r--r-- | site_perl/cust_main.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm index 842d52216..077740995 100644 --- a/site_perl/cust_main.pm +++ b/site_perl/cust_main.pm @@ -836,8 +836,12 @@ sub invoicing_list { } } } - map { $_->address } - qsearch( 'cust_main_invoice', { 'custnum' => $self->custnum } ); + if ( $self->custnum ) { + map { $_->address } + qsearch( 'cust_main_invoice', { 'custnum' => $self->custnum } ); + } else { + (); + } } =item check_invoicing_list ARRAYREF @@ -867,7 +871,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.14 1999-03-29 12:06:15 ivan Exp $ +$Id: cust_main.pm,v 1.15 1999-04-07 13:41:54 ivan Exp $ =head1 BUGS @@ -923,7 +927,10 @@ enable cybercash, cybercash v3 support, don't need to import FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21 $Log: cust_main.pm,v $ -Revision 1.14 1999-03-29 12:06:15 ivan +Revision 1.15 1999-04-07 13:41:54 ivan +in &invoicing_list, don't search if there's no custnum yet + +Revision 1.14 1999/03/29 12:06:15 ivan buglet in email invoices fixed Revision 1.13 1999/02/28 20:09:03 ivan |