X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fagent.pm;h=187b2baa83cc9bd608c535f742c4f0acb5e5e0df;hb=a39488f57d3dd129a77fd657b7982ef33731c3d0;hp=e5bd163f19c7d2f3231f0693cc1a19ef89ce0713;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git diff --git a/FS/FS/part_pkg/agent.pm b/FS/FS/part_pkg/agent.pm index e5bd163f1..187b2baa8 100644 --- a/FS/FS/part_pkg/agent.pm +++ b/FS/FS/part_pkg/agent.pm @@ -19,16 +19,8 @@ $me = '[FS::part_pkg::agent]'; %info = ( 'name' => 'Wholesale bulk billing, for master customers of an agent.', 'shortname' => 'Wholesale bulk billing for agent.', - + 'inherit_fields' => [qw( prorate global_Mixin)], 'fields' => { - 'setup_fee' => { 'name' => 'Setup fee for this package', - 'default' => 0, - }, - 'recur_fee' => { 'name' => 'Base recurring fee for this package', - 'default' => 0, - }, - - #'recur_method' => { 'name' => 'Recurring fee method', # #'type' => 'radio', # #'options' => \%recur_method, @@ -38,6 +30,10 @@ $me = '[FS::part_pkg::agent]'; 'cutoff_day' => { 'name' => 'Billing Day (1 - 28)', 'default' => '1', }, + 'add_full_period'=> { 'name' => 'When prorating first month, also bill '. + 'for one full period after that', + 'type' => 'checkbox', + }, 'no_pkg_prorate' => { 'name' => 'Disable prorating bulk packages (charge full price for packages active only a portion of the month)', 'type' => 'checkbox', @@ -45,10 +41,9 @@ $me = '[FS::part_pkg::agent]'; }, - #'fieldorder' => [qw( setup_fee recur_fee recur_method cutoff_day ) ], - 'fieldorder' => [qw( setup_fee recur_fee cutoff_day no_pkg_prorate ) ], + 'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ], - 'weight' => 51, + 'weight' => 52, ); @@ -110,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');