X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_ApplicationCommon.pm;h=9f61f5be53230ceeefe50a0bcab601f88c2eb270;hp=467b581aba3eeadabb64fbd8018d73eef60c293e;hb=3005e5fc92dce4d680f2cd9895db683336cf7c4f;hpb=553bae9c8217daa25c83681ba633e9c112e3d9b1 diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index 467b581ab..9f61f5be5 100644 --- 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; - 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 = ();