projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bugfixes from Jeff Finucane <jeff@cmh.net>, thanks!
[freeside.git]
/
FS
/
FS
/
cust_bill.pm
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
2df92f7
..
568f272
100644
(file)
--- a/
FS/FS/cust_bill.pm
+++ b/
FS/FS/cust_bill.pm
@@
-225,7
+225,7
@@
credits (FS::cust_credit objects).
sub cust_credit {
my $self = shift;
my $total = 0;
sub cust_credit {
my $self = shift;
my $total = 0;
- my @cust_credit = sort { $a->_date <=> $b->date }
+ my @cust_credit = sort { $a->_date <=> $b->
_
date }
grep { $_->credited != 0 && $_->_date < $self->_date }
qsearch('cust_credit', { 'custnum' => $self->custnum } )
;
grep { $_->credited != 0 && $_->_date < $self->_date }
qsearch('cust_credit', { 'custnum' => $self->custnum } )
;
@@
-241,7
+241,7
@@
Returns all payments (see L<FS::cust_pay>) for this invoice.
sub cust_pay {
my $self = shift;
sub cust_pay {
my $self = shift;
- sort { $a->_date <=> $b->date }
+ sort { $a->_date <=> $b->
_
date }
qsearch( 'cust_pay', { 'invnum' => $self->invnum } )
;
}
qsearch( 'cust_pay', { 'invnum' => $self->invnum } )
;
}
@@
-424,7
+424,7
@@
sub print_text {
=head1 VERSION
=head1 VERSION
-$Id: cust_bill.pm,v 1.
3 2000-09-20 10:35:21
ivan Exp $
+$Id: cust_bill.pm,v 1.
4 2000-12-03 15:14:00
ivan Exp $
=head1 BUGS
=head1 BUGS