package FS::part_pkg::recur_Common; use base qw( FS::part_pkg::flat ); use strict; use vars qw( %info %recur_method ); use Tie::IxHash; use Time::Local; %info = ( 'disabled' => 1 ); #recur_Common not a usable price plan directly tie %recur_method, 'Tie::IxHash', 'anniversary' => 'Charge the recurring fee at the frequency specified above', 'prorate' => 'Charge a prorated fee the first time (selectable billing date)', 'subscription' => 'Charge the full fee for the first partial period (selectable billing date)', ; sub base_recur { my $self = shift; $self->option('recur_fee', 1) || 0; } sub calc_setup { # moved from all descendant packages which just had $self->option('setup_fee') my($self, $cust_pkg, $time, $details, $param) = @_; return 0 if $self->prorate_setup($cust_pkg, $time); my $charge = $self->option('setup_fee'); my $discount = 0; if ( $charge > 0 ) { $param->{'setup_charge'} = $charge; $discount = $self->calc_discount($cust_pkg, \$time, $details, $param); delete $param->{'setup_charge'}; } sprintf('%.2f', ($cust_pkg->quantity || 1) * ($charge - $discount) ); } sub cutoff_day { # prorate/subscription only; we don't support sync_bill_date here my( $self, $cust_pkg ) = @_; my $recur_method = $self->option('recur_method',1) || 'anniversary'; my $cust_main = $cust_pkg->cust_main; return ( $cust_main->prorate_day ) if $cust_main->prorate_day and ( $cust_main->force_prorate_day || $recur_method eq 'prorate' || $recur_method eq 'subscription' ); return split(/\s*,\s*/, $self->option('cutoff_day', 1) || '1') if $recur_method eq 'prorate' || $recur_method eq 'subscription'; return (); } sub calc_recur_Common { my $self = shift; my($cust_pkg, $sdate, $details, $param ) = @_; #only need $sdate & $param my $charges = 0; if ( $param->{'increment_next_bill'} ) { my $recur_method = $self->option('recur_method', 1) || 'anniversary'; my @cutoff_day = $self->cutoff_day($cust_pkg); $charges = $self->base_recur($cust_pkg, $sdate, $details, $param); $charges += $param->{'override_charges'} if $param->{'override_charges'}; if ( $recur_method eq 'prorate' ) { $charges = $self->calc_prorate(@_, @cutoff_day); $charges += $param->{'override_charges'} if $param->{'override_charges'}; } elsif ( $recur_method eq 'subscription' ) { my ($day, $mon, $year) = ( localtime($$sdate) )[ 3..5 ]; if ( $day < $cutoff_day[0] ) { if ( $mon == 0 ) { $mon=11; $year--; } else { $mon--; } } $$sdate = timelocal(0, 0, 0, $cutoff_day[0], $mon, $year); }#$recur_method $charges -= $self->calc_discount( $cust_pkg, $sdate, $details, $param ); }#increment_next_bill return $charges; } 1;