X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fagent.pm;h=b122ff19ce7cb533fffb5f41d6f96e97f0426452;hb=026c6c7f4177772e95b263cfa20c8e427426683b;hp=4a87728280d52f5cc6afaa7c105847a04c727d46;hpb=87a59b1bdf236765177c27ab18390ef1317cc34c;p=freeside.git diff --git a/FS/FS/part_pkg/agent.pm b/FS/FS/part_pkg/agent.pm index 4a8772828..b122ff19c 100644 --- a/FS/FS/part_pkg/agent.pm +++ b/FS/FS/part_pkg/agent.pm @@ -40,7 +40,7 @@ $me = '[FS::part_pkg::agent]'; 'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ], - 'weight' => 51, + 'weight' => 52, ); @@ -102,11 +102,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');