diff options
| author | ivan <ivan> | 2007-02-19 15:40:30 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-02-19 15:40:30 +0000 |
| commit | 262ad6a5821649093c104d59b33d838c12520d3e (patch) | |
| tree | 2f201466b2eb2aa13ca91b577410c8d92b59a39d | |
| parent | d0285e367e820a18906a69bb7b4a1057e30701cc (diff) | |
this should fix Can't call method "part_pkg" on an undefined value at .../cust_bill.pm line 434
| -rw-r--r-- | FS/FS/cust_bill.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 2c0b35388..844d1b867 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -432,12 +432,16 @@ sub apply_payments_and_credits { my @open_lineitems = $self->open_cust_bill_pkg; my $max_pay_weight = - max( map { $_->cust_pkg->part_pkg->pay_weight || 0 } - @open_lineitems + max( map { $_->part_pkg->pay_weight || 0 } + grep { $_ } + map { $_->cust_pkg } + @open_lineitems ); my $max_credit_weight = - max( map { $_->cust_pkg->part_pkg->credit_weight || 0 } - @open_lineitems + max( map { $_->part_pkg->credit_weight || 0 } + grep { $_ } + map { $_->cust_pkg } + @open_lineitems ); #if both are the same... payments first? it has to be something |