package FS::part_pkg::recur_Common;
use strict;
-use vars qw( @ISA %recur_method );
+use vars qw( @ISA %info %recur_method );
use Tie::IxHash;
use Time::Local;
use FS::part_pkg::prorate;
@ISA = qw(FS::part_pkg::prorate);
+%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)',
}#$recur_method eq 'subscription'
+ $charges -= $self->calc_discount( $cust_pkg, $sdate, $details, $param );
+
}#$recur_method eq 'prorate'
}#increment_next_bill