X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_bill.pm;h=568f272aaa4403e2204e2d41e425d44f483a70d0;hp=2df92f75f4f183c17c258ba82fc24ce9e9ec6b8f;hb=3a95cc316da367ffd248ba29ac594f3efbc9db61;hpb=65dea21c4088a0dbf3e8863a6dadc39aed67d4db diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 2df92f75f..568f272aa 100644 --- 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; - 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 } ) ; @@ -241,7 +241,7 @@ Returns all payments (see L) for this invoice. sub cust_pay { my $self = shift; - sort { $a->_date <=> $b->date } + sort { $a->_date <=> $b->_date } qsearch( 'cust_pay', { 'invnum' => $self->invnum } ) ; } @@ -424,7 +424,7 @@ sub print_text { =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