projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
decb6d7
)
in &invoicing_list, don't search if there's no custnum yet
author
ivan
<ivan>
Wed, 7 Apr 1999 13:41:54 +0000
(13:41 +0000)
committer
ivan
<ivan>
Wed, 7 Apr 1999 13:41:54 +0000
(13:41 +0000)
site_perl/cust_main.pm
patch
|
blob
|
history
diff --git
a/site_perl/cust_main.pm
b/site_perl/cust_main.pm
index
842d522
..
0777409
100644
(file)
--- 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
}
=item check_invoicing_list ARRAYREF
@@
-867,7
+871,7
@@
sub check_invoicing_list {
=head1 VERSION
=head1 VERSION
-$Id: cust_main.pm,v 1.1
4 1999-03-29 12:06:15
ivan Exp $
+$Id: cust_main.pm,v 1.1
5 1999-04-07 13:41:54
ivan Exp $
=head1 BUGS
=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 $
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
buglet in email invoices fixed
Revision 1.13 1999/02/28 20:09:03 ivan