projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
553bae9
)
fix payment/credit line-item application erroring out on tax applications
author
ivan
<ivan>
Mon, 5 Feb 2007 23:48:30 +0000
(23:48 +0000)
committer
ivan
<ivan>
Mon, 5 Feb 2007 23:48:30 +0000
(23:48 +0000)
FS/FS/cust_bill_ApplicationCommon.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill_ApplicationCommon.pm
b/FS/FS/cust_bill_ApplicationCommon.pm
index
467b581
..
9f61f5b
100644
(file)
--- a/
FS/FS/cust_bill_ApplicationCommon.pm
+++ b/
FS/FS/cust_bill_ApplicationCommon.pm
@@
-178,7
+178,15
@@
sub apply_to_lineitems {
# - apply based on weights...
my $weight_col = $self->_app_part_pkg_weight_column;
# - apply based on weights...
my $weight_col = $self->_app_part_pkg_weight_column;
- my @openweight = map { [ $_, ($_->cust_pkg->part_pkg->$weight_col()||0) ] }
+ my @openweight = map {
+ my $open = $_;
+ my $cust_pkg = $open->cust_pkg;
+ my $weight =
+ $cust_pkg
+ ? ( $cust_pkg->part_pkg->$weight_col() || 0 )
+ : 0; #default or per-tax weight?
+ [ $open, $weight ]
+ }
@open;
my %saw = ();
@open;
my %saw = ();