projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ce4c49b
)
fix bank name showing up on invoices
author
ivan
<ivan>
Wed, 11 Aug 2004 23:56:52 +0000
(23:56 +0000)
committer
ivan
<ivan>
Wed, 11 Aug 2004 23:56:52 +0000
(23:56 +0000)
FS/FS/cust_bill.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
802e2bf
..
2755be0
100644
(file)
--- a/
FS/FS/cust_bill.pm
+++ b/
FS/FS/cust_bill.pm
@@
-720,14
+720,16
@@
L<Time::Local> and L<Date::Parse> for conversion functions.
=cut
=cut
+#still some false laziness w/print_text
sub print_text {
my( $self, $today, $template ) = @_;
$today ||= time;
sub print_text {
my( $self, $today, $template ) = @_;
$today ||= time;
+
# my $invnum = $self->invnum;
# my $invnum = $self->invnum;
- my $cust_main =
qsearchs('cust_main', { 'custnum', $self->custnum } )
;
+ my $cust_main =
$self->cust_main
;
$cust_main->payname( $cust_main->first. ' '. $cust_main->getfield('last') )
$cust_main->payname( $cust_main->first. ' '. $cust_main->getfield('last') )
- unless $cust_main->payname && $cust_main->payby
ne 'CHEK'
;
+ unless $cust_main->payname && $cust_main->payby
!~ /^(CHEK|DCHK)$/
;
my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
# my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits
my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
# my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits
@@
-967,7
+969,7
@@
sub print_latex {
# my $invnum = $self->invnum;
my $cust_main = $self->cust_main;
$cust_main->payname( $cust_main->first. ' '. $cust_main->getfield('last') )
# my $invnum = $self->invnum;
my $cust_main = $self->cust_main;
$cust_main->payname( $cust_main->first. ' '. $cust_main->getfield('last') )
- unless $cust_main->payname && $cust_main->payby
ne 'CHEK'
;
+ unless $cust_main->payname && $cust_main->payby
!~ /^(CHEK|DCHK)$/
;
my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
# my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits
my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
# my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits