X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fagent.pm;h=187b2baa83cc9bd608c535f742c4f0acb5e5e0df;hb=66b5653e8e8255bebe26ed01344cad6bc8b36d2d;hp=6ab21d64f77c5330c65a172ecc2936904fa66508;hpb=b5c4237a34aef94976bc343c8d9e138664fc3984;p=freeside.git diff --git a/FS/FS/part_pkg/agent.pm b/FS/FS/part_pkg/agent.pm index 6ab21d64f..187b2baa8 100644 --- a/FS/FS/part_pkg/agent.pm +++ b/FS/FS/part_pkg/agent.pm @@ -43,7 +43,7 @@ $me = '[FS::part_pkg::agent]'; 'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ], - 'weight' => 51, + 'weight' => 52, ); @@ -105,11 +105,15 @@ sub calc_recur { if $DEBUG; my $pkg_details = $cust_main->name_short. ': '; #name? + + my $part_pkg = $cust_pkg->part_pkg; + # + something to identify package... primary service probably + # no... package def for now + $pkg_details .= $part_pkg->pkg. ': '; my $pkg_charge = 0; - my $part_pkg = $cust_pkg->part_pkg; #option to not fallback? via options above my $pkg_setup_fee = $part_pkg->setup_cost || $part_pkg->option('setup_fee');